/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / admin / studentrec / !Appoint / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f 20 f4 20 3e | 3c 41 70 70 6f 69 6e 74 |.... . >|<Appoint|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 14 06 20 f4 0d 00 1e | 3d 20 f4 20 21 52 75 6e |... ....|= . !Run|
|00000030| 49 6d 61 67 65 20 66 6f | 72 20 21 41 70 70 6f 69 |Image fo|r !Appoi|
|00000040| 6e 74 20 2d 20 50 61 72 | 65 6e 74 73 27 20 65 76 |nt - Par|ents' ev|
|00000050| 65 6e 69 6e 67 20 61 70 | 70 6f 69 6e 74 6d 65 6e |ening ap|pointmen|
|00000060| 74 73 0d 00 28 06 20 f4 | 0d 00 32 14 20 f4 20 a9 |ts..(. .|..2. . .|
|00000070| 20 44 2e 4c 2e 20 48 61 | 73 6c 61 6d 0d 00 3c 06 | D.L. Ha|slam..<.|
|00000080| 20 3a 0d 00 46 22 20 76 | 65 72 73 69 6f 6e 24 3d | :..F" v|ersion$=|
|00000090| 22 32 2e 33 33 20 28 31 | 30 2d 44 65 63 2d 31 39 |"2.33 (1|0-Dec-19|
|000000a0| 39 33 29 22 0d 00 50 2d | 20 69 6e 74 76 65 72 73 |93)"..P-| intvers|
|000000b0| 69 6f 6e 24 3d 22 49 6e | 74 65 72 66 61 63 65 20 |ion$="In|terface |
|000000c0| 4d 61 6e 61 67 65 72 20 | 28 76 2e 32 2e 30 30 29 |Manager |(v.2.00)|
|000000d0| 22 0d 00 5a 06 20 3a 0d | 00 64 24 20 f4 20 48 65 |"..Z. :.|.d$ . He|
|000000e0| 61 70 20 4d 61 6e 61 67 | 65 72 20 28 6d 6f 64 75 |ap Manag|er (modu|
|000000f0| 6c 65 20 2b 20 42 41 53 | 49 43 29 0d 00 6e 14 20 |le + BAS|IC)..n. |
|00000100| f4 20 a9 20 53 2e 52 2e | 20 48 61 73 6c 61 6d 0d |. . S.R.| Haslam.|
|00000110| 00 78 06 20 3a 0d 00 82 | 22 20 f4 20 49 6e 74 65 |.x. :...|" . Inte|
|00000120| 72 66 61 63 65 20 4d 61 | 6e 61 67 65 72 20 28 76 |rface Ma|nager (v|
|00000130| 2e 20 32 2e 30 30 29 0d | 00 8c 19 20 f4 20 a9 20 |. 2.00).|... . . |
|00000140| 53 69 6d 6f 6e 20 48 75 | 6e 74 69 6e 67 64 6f 6e |Simon Hu|ntingdon|
|00000150| 0d 00 96 06 20 3a 0d 00 | a0 21 20 6d 6f 61 6e 5f |.... :..|.! moan_|
|00000160| 65 72 72 25 3d 32 35 34 | 3a 66 61 74 61 6c 5f 65 |err%=254|:fatal_e|
|00000170| 72 72 25 3d 32 35 35 0d | 00 aa 49 20 ee 20 85 3a |rr%=255.|..I . .:|
|00000180| ee 20 85 20 87 3a 85 20 | 9f 2c 22 4c 30 20 65 72 |. . .:. |.,"L0 er|
|00000190| 72 6f 72 3a 20 22 2b f6 | 24 2b 22 20 64 75 72 69 |ror: "+.|$+" duri|
|000001a0| 6e 67 20 69 6e 69 74 69 | 61 6c 69 73 61 74 69 6f |ng initi|alisatio|
|000001b0| 6e 20 61 74 20 6c 69 6e | 65 20 22 2b c3 28 9e 29 |n at lin|e "+.(.)|
|000001c0| 0d 00 b4 10 20 6e 65 78 | 74 66 69 6c 65 25 3d 30 |.... nex|tfile%=0|
|000001d0| 0d 00 be 0b 20 f2 73 65 | 74 75 70 0d 00 c8 2f 20 |.... .se|tup.../ |
|000001e0| e7 20 62 75 66 66 25 3e | 65 6e 64 62 75 66 66 25 |. buff%>|endbuff%|
|000001f0| 20 8c 20 85 20 30 2c 22 | 4e 6f 20 72 6f 6f 6d 20 | . . 0,"|No room |
|00000200| 66 6f 72 20 64 65 66 73 | 2e 22 0d 00 d2 33 20 e7 |for defs|."...3 .|
|00000210| 20 6d 65 6e 75 5f 70 74 | 72 25 3e 6d 65 6e 5f 65 | menu_pt|r%>men_e|
|00000220| 6e 64 25 20 8c 20 85 20 | 30 2c 22 4e 6f 20 72 6f |nd% . . |0,"No ro|
|00000230| 6f 6d 20 66 6f 72 20 6d | 65 6e 75 73 22 0d 00 dc |om for m|enus"...|
|00000240| 20 20 c8 99 20 22 4f 53 | 5f 47 65 74 45 6e 76 22 |  .. "OS|_GetEnv"|
|00000250| 20 b8 20 43 6f 6d 53 74 | 72 69 6e 67 24 0d 00 e6 | . ComSt|ring$...|
|00000260| 21 20 e7 20 a7 43 6f 6d | 53 74 72 69 6e 67 24 2c |! . .Com|String$,|
|00000270| 22 2d 64 61 74 61 62 61 | 73 65 22 29 20 8c 0d 00 |"-databa|se") ...|
|00000280| f0 35 20 20 20 46 69 6c | 65 24 3d c1 43 6f 6d 53 |.5   Fil|e$=.ComS|
|00000290| 74 72 69 6e 67 24 2c a7 | 43 6f 6d 53 74 72 69 6e |tring$,.|ComStrin|
|000002a0| 67 24 2c 22 2d 64 61 74 | 61 62 61 73 65 22 29 2b |g$,"-dat|abase")+|
|000002b0| 31 30 29 0d 00 fa 36 20 | 20 20 c8 99 20 22 4f 53 |10)...6 |  .. "OS|
|000002c0| 5f 47 53 54 72 61 6e 73 | 22 2c 46 69 6c 65 24 2c |_GSTrans|",File$,|
|000002d0| c4 32 35 35 2c bd 31 33 | 29 2c 32 35 35 20 b8 20 |.255,.13|),255 . |
|000002e0| 2c 46 69 6c 65 24 2c 4c | 25 0d 01 04 17 20 20 20 |,File$,L|%....   |
|000002f0| 46 69 6c 65 24 3d c0 46 | 69 6c 65 24 2c 4c 25 29 |File$=.F|ile$,L%)|
|00000300| 0d 01 0e 20 20 20 20 ee | 20 85 20 f2 77 69 6d 70 |...    .| . .wimp|
|00000310| 5f 65 72 72 6f 72 28 b9 | 2c 9f 2c 9e 2c f6 24 29 |_error(.|,.,.,.$)|
|00000320| 0d 01 18 18 20 20 20 f2 | 67 65 74 5f 69 74 5f 69 |....   .|get_it_i|
|00000330| 6e 28 46 69 6c 65 24 29 | 0d 01 22 06 20 cd 0d 01 |n(File$)|..". ...|
|00000340| 2c 1e 20 ee 20 85 20 f2 | 77 69 6d 70 5f 65 72 72 |,. . . .|wimp_err|
|00000350| 6f 72 28 b9 2c 9f 2c 9e | 2c f6 24 29 0d 01 36 06 |or(.,.,.|,.$)..6.|
|00000360| 20 f5 0d 01 40 0c 20 20 | 20 f2 70 6f 6c 6c 0d 01 | ...@.  | .poll..|
|00000370| 4a 0c 20 fd 20 71 75 69 | 74 25 0d 01 54 10 20 f2 |J. . qui|t%..T. .|
|00000380| 63 6c 6f 73 65 5f 64 6f | 77 6e 0d 01 5e 06 20 e0 |close_do|wn..^. .|
|00000390| 0d 01 68 06 20 3a 0d 01 | 72 06 20 3a 0d 01 7c 06 |..h. :..|r. :..|.|
|000003a0| 20 3a 0d 01 86 0c 20 dd | 20 f2 70 6f 6c 6c 0d 01 | :.... .| .poll..|
|000003b0| 90 28 20 c8 99 20 22 4f | 53 5f 42 79 74 65 22 2c |.( .. "O|S_Byte",|
|000003c0| 32 32 39 2c 31 3a c8 99 | 20 22 4f 53 5f 42 79 74 |229,1:..| "OS_Byt|
|000003d0| 65 22 2c 31 32 34 0d 01 | 9a 2a 20 c8 99 20 22 57 |e",124..|.* .. "W|
|000003e0| 69 6d 70 5f 50 6f 6c 6c | 22 2c 6d 61 73 6b 25 2c |imp_Poll|",mask%,|
|000003f0| 62 6c 6f 63 6b 25 20 b8 | 20 72 65 61 73 6f 6e 25 |block% .| reason%|
|00000400| 0d 01 a4 29 20 c8 99 20 | 22 49 6e 74 65 72 66 61 |...) .. |"Interfa|
|00000410| 63 65 5f 50 6f 6c 6c 22 | 2c 72 65 61 73 6f 6e 25 |ce_Poll"|,reason%|
|00000420| 2c 2c 6d 79 74 61 73 6b | 25 0d 01 ae 11 20 c8 8e |,,mytask|%.... ..|
|00000430| 20 72 65 61 73 6f 6e 25 | 20 ca 0d 01 b8 1b 20 20 | reason%| .....  |
|00000440| 20 c9 20 31 3a f2 72 65 | 64 72 61 77 28 21 62 6c | . 1:.re|draw(!bl|
|00000450| 6f 63 6b 25 29 0d 01 c2 | 0b 20 20 20 c9 20 32 3a |ock%)...|.   . 2:|
|00000460| 0d 01 cc 1b 20 20 20 e7 | 20 21 62 6c 6f 63 6b 25 |....   .| !block%|
|00000470| 3d 6d 61 6e 75 61 6c 57 | 25 20 8c 0d 01 d6 16 20 |=manualW|% ..... |
|00000480| 20 20 20 20 f2 75 70 64 | 61 74 65 5f 70 61 6e 65 |    .upd|ate_pane|
|00000490| 73 0d 01 e0 27 20 20 20 | 20 20 cc 20 c8 99 20 22 |s...'   |  . .. "|
|000004a0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|000004b0| 2c 2c 62 6c 6f 63 6b 25 | 0d 01 ea 08 20 20 20 cd |,,block%|....   .|
|000004c0| 0d 01 f4 19 20 20 20 c9 | 20 33 3a f2 70 65 72 66 |....   .| 3:.perf|
|000004d0| 6f 72 6d 5f 63 6c 6f 73 | 65 0d 01 fe 41 20 20 20 |orm_clos|e...A   |
|000004e0| c9 20 36 3a f2 6d 6f 75 | 73 65 28 62 6c 6f 63 6b |. 6:.mou|se(block|
|000004f0| 25 21 30 2c 62 6c 6f 63 | 6b 25 21 34 2c 62 6c 6f |%!0,bloc|k%!4,blo|
|00000500| 63 6b 25 21 38 2c 62 6c | 6f 63 6b 25 21 31 32 2c |ck%!8,bl|ock%!12,|
|00000510| 62 6c 6f 63 6b 25 21 31 | 36 29 0d 02 08 21 20 20 |block%!1|6)...!  |
|00000520| 20 c9 20 37 3a f2 65 6e | 64 5f 64 72 61 67 28 53 | . 7:.en|d_drag(S|
|00000530| 74 61 72 74 25 2c 45 6e | 64 25 29 0d 02 12 17 20 |tart%,En|d%).... |
|00000540| 20 20 c9 20 38 3a f2 70 | 72 6f 63 65 73 73 5f 6b |  . 8:.p|rocess_k|
|00000550| 65 79 0d 02 1c 17 20 20 | 20 c9 20 39 3a f2 6d 65 |ey....  | . 9:.me|
|00000560| 6e 75 5f 73 65 6c 65 63 | 74 0d 02 26 17 20 20 20 |nu_selec|t..&.   |
|00000570| c9 20 31 37 2c 31 38 3a | f2 6d 65 73 73 61 67 65 |. 17,18:|.message|
|00000580| 0d 02 30 0c 20 20 20 c9 | 20 31 39 3a 0d 02 3a 3f |..0.   .| 19:..:?|
|00000590| 20 20 20 85 20 6d 6f 61 | 6e 5f 65 72 72 25 2c 22 |   . moa|n_err%,"|
|000005a0| 54 72 61 6e 73 66 65 72 | 20 6e 6f 74 20 63 6f 6d |Transfer| not com|
|000005b0| 70 6c 65 74 65 64 2e 20 | 52 65 63 65 69 76 65 72 |pleted. |Receiver|
|000005c0| 20 64 69 65 64 22 2b bd | 28 30 29 0d 02 44 32 20 | died"+.|(0)..D2 |
|000005d0| 20 20 e7 20 62 6c 6f 63 | 6b 25 21 38 3d 6d 79 72 |  . bloc|k%!8=myr|
|000005e0| 65 66 25 20 8c 20 c8 99 | 20 22 4f 53 5f 46 69 6c |ef% . ..| "OS_Fil|
|000005f0| 65 22 2c 36 2c 62 6c 6f | 63 6b 2b 34 34 0d 02 4e |e",6,blo|ck+44..N|
|00000600| 06 20 cb 0d 02 58 06 20 | e1 0d 02 62 06 20 3a 0d |. ...X. |...b. :.|
|00000610| 02 6c 06 20 3a 0d 02 76 | 06 20 3a 0d 02 80 4a 20 |.l. :..v|. :...J |
|00000620| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00000630| 2d 2d 2d 2d 2d 2d 20 53 | 68 75 74 64 6f 77 6e 20 |------ S|hutdown |
|00000640| 72 6f 75 74 69 6e 65 73 | 20 2d 2d 2d 2d 2d 2d 2d |routines| -------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000660| 2d 2d 2d 2d 2d 0d 02 8a | 06 20 3a 0d 02 94 12 20 |-----...|. :.... |
|00000670| dd 20 f2 63 6c 6f 73 65 | 5f 64 6f 77 6e 0d 02 9e |. .close|_down...|
|00000680| 09 20 ea 20 46 25 0d 02 | a8 08 20 ea 20 85 0d 02 |. . F%..|.. . ...|
|00000690| b2 51 20 ee 20 85 20 ea | 20 24 62 6c 6f 63 6b 25 |.Q . . .| $block%|
|000006a0| 3d 22 54 41 53 4b 22 3a | c8 99 20 22 57 69 6d 70 |="TASK":|.. "Wimp|
|000006b0| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 6d 79 74 61 |_CloseDo|wn",myta|
|000006c0| 73 6b 25 2c 21 62 6c 6f | 63 6b 25 3a eb 20 31 32 |sk%,!blo|ck%:. 12|
|000006d0| 3a f6 3a f1 20 22 20 40 | 20 23 22 3b 9e 3a e0 0d |:.:. " @| #";.:..|
|000006e0| 02 bc 0a 20 f2 65 78 69 | 74 0d 02 c6 25 20 c8 99 |... .exi|t...% ..|
|000006f0| 20 22 49 6e 74 65 72 66 | 61 63 65 5f 43 6c 6f 73 | "Interf|ace_Clos|
|00000700| 65 44 6f 77 6e 22 2c 6d | 79 74 61 73 6b 25 0d 02 |eDown",m|ytask%..|
|00000710| d0 09 20 f2 65 6e 64 0d | 02 da 06 20 e1 0d 02 e4 |.. .end.|... ....|
|00000720| 06 20 3a 0d 02 ee 0c 20 | dd 20 f2 65 78 69 74 0d |. :.... |. .exit.|
|00000730| 02 f8 09 20 ea 20 49 25 | 0d 03 02 13 20 c8 99 20 |... . I%|.... .. |
|00000740| 22 4f 53 5f 42 79 74 65 | 22 2c 33 0d 03 0c 16 20 |"OS_Byte|",3.... |
|00000750| e7 20 61 70 70 74 66 69 | 6c 65 24 3c 3e 22 22 20 |. apptfi|le$<>"" |
|00000760| 8c 0d 03 16 1f 20 20 20 | 61 70 70 74 68 61 6e 64 |.....   |appthand|
|00000770| 6c 65 25 3d ad 28 61 70 | 70 74 66 69 6c 65 24 29 |le%=.(ap|ptfile$)|
|00000780| 0d 03 20 1a 20 20 20 f2 | 77 72 69 74 65 5f 61 70 |.. .   .|write_ap|
|00000790| 70 28 5a 25 2c 52 45 43 | 25 29 0d 03 2a 1f 20 20 |p(Z%,REC|%)..*.  |
|000007a0| 20 f2 63 6c 6f 73 65 5f | 66 69 6c 65 28 61 70 70 | .close_|file(app|
|000007b0| 74 68 61 6e 64 6c 65 25 | 29 0d 03 34 06 20 cd 0d |thandle%|)..4. ..|
|000007c0| 03 3e 1f 20 e7 20 41 70 | 70 74 73 4d 61 64 65 25 |.>. . Ap|ptsMade%|
|000007d0| 20 8c 20 f2 73 61 76 65 | 5f 73 74 61 66 66 0d 03 | . .save|_staff..|
|000007e0| 48 20 20 46 3d ad 28 22 | 3c 41 70 70 6f 69 6e 74 |H  F=.("|<Appoint|
|000007f0| 24 44 69 72 3e 2e 43 6f | 6e 66 69 67 22 29 0d 03 |$Dir>.Co|nfig")..|
|00000800| 52 15 20 cf 23 46 3d 63 | 6f 6e 66 69 67 77 72 69 |R. .#F=c|onfigwri|
|00000810| 74 65 25 0d 03 5c 32 20 | d5 23 46 2c 24 45 76 65 |te%..\2 |.#F,$Eve|
|00000820| 6e 74 44 61 74 65 25 2b | 22 7c 20 20 44 61 74 65 |ntDate%+|"|  Date|
|00000830| 20 6f 66 20 50 61 72 65 | 6e 74 73 27 20 45 76 65 | of Pare|nts' Eve|
|00000840| 6e 69 6e 67 22 0d 03 66 | 3a 20 d5 23 46 2c 24 4d |ning"..f|: .#F,$M|
|00000850| 61 74 68 53 63 69 4c 6f | 63 25 2b 22 7c 20 20 4c |athSciLo|c%+"|  L|
|00000860| 6f 63 61 74 69 6f 6e 20 | 6f 66 20 4d 61 74 68 73 |ocation |of Maths|
|00000870| 2f 53 63 69 65 6e 63 65 | 20 53 74 61 66 66 22 0d |/Science| Staff".|
|00000880| 03 70 33 20 d5 23 46 2c | 24 48 75 6d 4c 6f 63 25 |.p3 .#F,|$HumLoc%|
|00000890| 2b 22 7c 20 20 4c 6f 63 | 61 74 69 6f 6e 20 6f 66 |+"|  Loc|ation of|
|000008a0| 20 48 75 6d 61 6e 69 74 | 69 65 73 20 53 74 61 66 | Humanit|ies Staf|
|000008b0| 66 22 0d 03 7a 13 20 f2 | 63 6c 6f 73 65 5f 66 69 |f"..z. .|close_fi|
|000008c0| 6c 65 28 46 29 0d 03 84 | 13 20 e7 20 70 72 65 73 |le(F)...|. . pres|
|000008d0| 65 6e 74 25 3d 37 20 8c | 0d 03 8e 21 20 20 20 73 |ent%=7 .|...!   s|
|000008e0| 74 61 72 74 25 3d a4 74 | 65 78 74 28 72 65 73 74 |tart%=.t|ext(rest|
|000008f0| 72 69 63 74 57 25 2c 33 | 29 0d 03 98 22 20 20 20 |rictW%,3|)..."   |
|00000900| 65 6e 64 25 3d a4 74 65 | 78 74 28 72 65 73 74 72 |end%=.te|xt(restr|
|00000910| 69 63 74 57 25 2c 32 30 | 29 2b 35 0d 03 a2 3b 20 |ictW%,20|)+5...; |
|00000920| 20 20 f2 73 61 76 65 28 | 24 64 61 74 61 62 61 73 |  .save(|$databas|
|00000930| 65 25 2b 22 2e 41 70 70 | 74 73 2e 52 65 73 74 72 |e%+".App|ts.Restr|
|00000940| 69 63 74 22 2c 26 37 66 | 32 2c 73 74 61 72 74 25 |ict",&7f|2,start%|
|00000950| 2c 65 6e 64 25 29 0d 03 | ac 06 20 cd 0d 03 b6 19 |,end%)..|.. .....|
|00000960| 20 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 53 | .. "Hou|rglass_S|
|00000970| 6d 61 73 68 22 0d 03 c0 | 7b 20 e7 20 77 61 72 6e |mash"...|{ . warn|
|00000980| 25 20 80 20 72 61 6d 25 | 20 8c 20 e7 20 ac 20 a4 |% . ram%| . . . .|
|00000990| 63 6f 6e 66 69 72 6d 28 | 22 43 6c 6f 73 69 6e 67 |confirm(|"Closing|
|000009a0| 20 64 6f 77 6e 20 22 2b | 24 64 61 74 61 62 61 73 | down "+|$databas|
|000009b0| 65 25 2b 22 20 6f 6e 20 | 52 41 4d 20 64 69 73 63 |e%+" on |RAM disc|
|000009c0| 2e 20 43 68 61 6e 67 65 | 73 20 6e 6f 74 20 63 6f |. Change|s not co|
|000009d0| 70 69 65 64 20 74 6f 20 | 70 65 72 6d 61 6e 65 6e |pied to |permanen|
|000009e0| 74 20 73 74 6f 72 61 67 | 65 2e 22 29 20 8c 20 e1 |t storag|e.") . .|
|000009f0| 0d 03 ca 11 20 f2 63 6c | 6f 73 65 5f 66 69 6c 65 |.... .cl|ose_file|
|00000a00| 73 0d 03 d4 12 20 f2 68 | 69 64 65 5f 77 69 6e 64 |s.... .h|ide_wind|
|00000a10| 6f 77 73 0d 03 de 1f 20 | f2 64 65 6c 65 74 65 5f |ows.... |.delete_|
|00000a20| 69 63 6f 6e 73 28 64 61 | 74 61 64 69 63 57 25 2c |icons(da|tadicW%,|
|00000a30| 30 29 0d 03 e8 14 20 f2 | 72 65 63 6f 76 65 72 5f |0).... .|recover_|
|00000a40| 6d 65 6d 6f 72 79 0d 03 | f2 0f 20 f2 69 6e 69 74 |memory..|.. .init|
|00000a50| 5f 76 61 72 73 0d 03 fc | 12 20 24 50 61 73 73 77 |_vars...|. $Passw|
|00000a60| 6f 72 64 25 3d 22 22 0d | 04 06 17 20 f2 6c 69 74 |ord%="".|... .lit|
|00000a70| 28 6d 65 6e 75 25 28 31 | 29 2c 32 2c a3 29 0d 04 |(menu%(1|),2,.)..|
|00000a80| 10 17 20 f2 6c 69 74 28 | 6d 65 6e 75 25 28 31 29 |.. .lit(|menu%(1)|
|00000a90| 2c 33 2c a3 29 0d 04 1a | 17 20 f2 6c 69 74 28 6d |,3,.)...|. .lit(m|
|00000aa0| 65 6e 75 25 28 31 29 2c | 34 2c a3 29 0d 04 24 17 |enu%(1),|4,.)..$.|
|00000ab0| 20 f2 6c 69 74 28 6d 65 | 6e 75 25 28 31 29 2c 35 | .lit(me|nu%(1),5|
|00000ac0| 2c a3 29 0d 04 2e 17 20 | f2 6c 69 74 28 6d 65 6e |,.).... |.lit(men|
|00000ad0| 75 25 28 30 29 2c 31 2c | a3 29 0d 04 38 17 20 f2 |u%(0),1,|.)..8. .|
|00000ae0| 6c 69 74 28 6d 65 6e 75 | 25 28 30 29 2c 32 2c a3 |lit(menu|%(0),2,.|
|00000af0| 29 0d 04 42 16 20 24 64 | 62 61 73 65 25 3d 22 4e |)..B. $d|base%="N|
|00000b00| 6f 20 64 61 74 61 22 0d | 04 4c 1e 20 f2 72 65 64 |o data".|.L. .red|
|00000b10| 72 61 77 5f 69 63 6f 6e | 28 2d 32 2c 61 70 70 69 |raw_icon|(-2,appi|
|00000b20| 63 6f 6e 25 29 0d 04 56 | 0c 20 65 78 69 74 25 3d |con%)..V|. exit%=|
|00000b30| b9 0d 04 60 06 20 e1 0d | 04 6a 06 20 3a 0d 04 74 |...`. ..|.j. :..t|
|00000b40| 1d 20 dd 20 f2 64 65 6c | 65 74 65 5f 69 63 6f 6e |. . .del|ete_icon|
|00000b50| 73 28 77 69 25 2c 69 63 | 25 29 0d 04 7e 1d 20 21 |s(wi%,ic|%)..~. !|
|00000b60| 62 6c 6f 63 6b 25 3d 77 | 69 25 3a 62 6c 6f 63 6b |block%=w|i%:block|
|00000b70| 25 21 34 3d 69 63 25 0d | 04 88 06 20 f5 0d 04 92 |%!4=ic%.|... ....|
|00000b80| 23 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 44 65 6c |#   .. "|Wimp_Del|
|00000b90| 65 74 65 49 63 6f 6e 22 | 2c 2c 62 6c 6f 63 6b 25 |eteIcon"|,,block%|
|00000ba0| 0d 04 9c 1a 20 20 20 69 | 63 25 2b 3d 31 3a 62 6c |....   i|c%+=1:bl|
|00000bb0| 6f 63 6b 25 21 34 3d 69 | 63 25 0d 04 a6 25 20 20 |ock%!4=i|c%...%  |
|00000bc0| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f | .. "Wim|p_GetIco|
|00000bd0| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |nState",|,block%.|
|00000be0| 04 b0 20 20 fd 20 28 28 | 62 6c 6f 63 6b 25 21 32 |..  . ((|block%!2|
|00000bf0| 34 29 20 80 20 28 31 3c | 3c 32 33 29 29 3e 30 0d |4) . (1<|<23))>0.|
|00000c00| 04 ba 06 20 e1 0d 04 c4 | 06 20 3a 0d 04 ce 13 20 |... ....|. :.... |
|00000c10| dd 20 f2 63 6c 6f 73 65 | 5f 66 69 6c 65 73 0d 04 |. .close|_files..|
|00000c20| d8 1e 20 f2 63 6c 6f 73 | 65 5f 66 69 6c 65 28 64 |.. .clos|e_file(d|
|00000c30| 62 61 73 65 68 61 6e 64 | 6c 65 25 29 0d 04 e2 1d |basehand|le%)....|
|00000c40| 20 f2 63 6c 6f 73 65 5f | 66 69 6c 65 28 61 70 70 | .close_|file(app|
|00000c50| 74 68 61 6e 64 6c 65 25 | 29 0d 04 ec 1e 20 f2 63 |thandle%|).... .c|
|00000c60| 6c 6f 73 65 5f 66 69 6c | 65 28 70 72 69 6e 74 68 |lose_fil|e(printh|
|00000c70| 61 6e 64 6c 65 25 29 0d | 04 f6 06 20 e1 0d 05 00 |andle%).|... ....|
|00000c80| 06 20 3a 0d 05 0a 1d 20 | dd 20 f2 63 6c 6f 73 65 |. :.... |. .close|
|00000c90| 5f 66 69 6c 65 28 f8 20 | 68 61 6e 64 6c 65 25 29 |_file(. |handle%)|
|00000ca0| 0d 05 14 12 20 e7 20 68 | 61 6e 64 6c 65 25 3e 30 |.... . h|andle%>0|
|00000cb0| 20 8c 0d 05 1e 10 20 20 | 20 d9 23 68 61 6e 64 6c | .....  | .#handl|
|00000cc0| 65 25 0d 05 28 10 20 20 | 20 68 61 6e 64 6c 65 25 |e%..(.  | handle%|
|00000cd0| 3d 30 0d 05 32 06 20 cd | 0d 05 3c 06 20 e1 0d 05 |=0..2. .|..<. ...|
|00000ce0| 46 06 20 3a 0d 05 50 15 | dd 20 f2 72 65 63 6f 76 |F. :..P.|. .recov|
|00000cf0| 65 72 5f 6d 65 6d 6f 72 | 79 0d 05 5a 08 ea 20 49 |er_memor|y..Z.. I|
|00000d00| 25 0d 05 64 24 f2 73 63 | 72 61 70 5f 73 6c 69 64 |%..d$.sc|rap_slid|
|00000d10| 69 6e 67 5f 62 6c 6f 63 | 6b 28 6b 65 79 61 6e 63 |ing_bloc|k(keyanc|
|00000d20| 68 6f 72 25 29 0d 05 6e | 25 f2 73 63 72 61 70 5f |hor%)..n|%.scrap_|
|00000d30| 73 6c 69 64 69 6e 67 5f | 62 6c 6f 63 6b 28 74 65 |sliding_|block(te|
|00000d40| 78 74 61 6e 63 68 6f 72 | 25 29 0d 05 78 29 f2 73 |xtanchor|%)..x).s|
|00000d50| 63 72 61 70 5f 73 6c 69 | 64 69 6e 67 5f 62 6c 6f |crap_sli|ding_blo|
|00000d60| 63 6b 28 70 72 69 6f 72 | 69 74 79 61 6e 63 68 6f |ck(prior|ityancho|
|00000d70| 72 25 29 0d 05 82 25 f2 | 73 63 72 61 70 5f 73 6c |r%)...%.|scrap_sl|
|00000d80| 69 64 69 6e 67 5f 62 6c | 6f 63 6b 28 74 65 78 74 |iding_bl|ock(text|
|00000d90| 61 6e 63 68 6f 72 25 29 | 0d 05 8c 15 e3 20 49 25 |anchor%)|..... I%|
|00000da0| 3d 30 20 b8 20 4d 61 78 | 54 61 62 73 25 0d 05 96 |=0 . Max|Tabs%...|
|00000db0| 2a 20 20 f2 73 63 72 61 | 70 5f 73 6c 69 64 69 6e |*  .scra|p_slidin|
|00000dc0| 67 5f 62 6c 6f 63 6b 28 | 74 61 62 61 6e 63 68 6f |g_block(|tabancho|
|00000dd0| 72 25 28 49 25 29 29 0d | 05 a0 08 ed 20 49 25 0d |r%(I%)).|.... I%.|
|00000de0| 05 aa 15 e3 20 49 25 3d | 30 20 b8 20 4d 61 78 4b |.... I%=|0 . MaxK|
|00000df0| 65 79 73 25 0d 05 b4 2a | 20 20 f2 73 63 72 61 70 |eys%...*|  .scrap|
|00000e00| 5f 73 6c 69 64 69 6e 67 | 5f 62 6c 6f 63 6b 28 6b |_sliding|_block(k|
|00000e10| 65 79 61 6e 63 68 6f 72 | 25 28 49 25 29 29 0d 05 |eyanchor|%(I%))..|
|00000e20| be 08 ed 20 49 25 0d 05 | c8 05 e1 0d 05 d2 06 20 |... I%..|....... |
|00000e30| 3a 0d 05 dc 0b 20 dd 20 | f2 65 6e 64 0d 05 e6 25 |:.... . |.end...%|
|00000e40| 20 c8 99 20 22 49 6e 74 | 65 72 66 61 63 65 5f 43 | .. "Int|erface_C|
|00000e50| 6c 6f 73 65 44 6f 77 6e | 22 2c 6d 79 74 61 73 6b |loseDown|",mytask|
|00000e60| 25 0d 05 f0 13 20 24 62 | 6c 6f 63 6b 25 3d 22 54 |%.... $b|lock%="T|
|00000e70| 41 53 4b 22 0d 05 fa 28 | 20 c8 99 20 22 57 69 6d |ASK"...(| .. "Wim|
|00000e80| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 2c 6d 79 74 |p_CloseD|own",myt|
|00000e90| 61 73 6b 25 2c 21 62 6c | 6f 63 6b 25 0d 06 04 06 |ask%,!bl|ock%....|
|00000ea0| 20 e0 0d 06 0e 06 20 e1 | 0d 06 18 06 20 3a 0d 06 | ..... .|.... :..|
|00000eb0| 22 48 f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |"H. ----|--------|
|00000ec0| 2d 2d 2d 2d 2d 20 45 6e | 64 20 6f 66 20 53 68 75 |----- En|d of Shu|
|00000ed0| 74 64 6f 77 6e 20 72 6f | 75 74 69 6e 65 73 20 2d |tdown ro|utines -|
|00000ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ef0| 2d 2d 2d 2d 2d 2d 0d 06 | 2c 05 3a 0d 06 36 05 3a |------..|,.:..6.:|
|00000f00| 0d 06 40 05 3a 0d 06 4a | 48 f4 20 2d 2d 2d 2d 2d |..@.:..J|H. -----|
|00000f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f20| 20 45 72 72 6f 72 20 68 | 61 6e 64 6c 69 6e 67 20 | Error h|andling |
|00000f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 06 54 |--------|-----..T|
|00000f50| 05 3a 0d 06 5e 29 dd 20 | f2 77 69 6d 70 5f 65 72 |.:..^). |.wimp_er|
|00000f60| 72 6f 72 28 72 65 74 75 | 72 6e 25 2c 65 72 72 25 |ror(retu|rn%,err%|
|00000f70| 2c 65 72 6c 25 2c 65 72 | 72 24 29 0d 06 68 2a 62 |,erl%,er|r$)..h*b|
|00000f80| 6c 6f 63 6b 25 21 38 3d | 30 3a 62 6c 6f 63 6b 25 |lock%!8=|0:block%|
|00000f90| 21 31 32 3d 77 69 25 3a | 62 6c 6f 63 6b 25 21 31 |!12=wi%:|block%!1|
|00000fa0| 36 3d 69 63 25 0d 06 72 | 25 c8 99 20 22 49 6e 74 |6=ic%..r|%.. "Int|
|00000fb0| 65 72 66 61 63 65 5f 53 | 6c 61 62 42 75 74 74 6f |erface_S|labButto|
|00000fc0| 6e 22 2c 2c 62 6c 6f 63 | 6b 25 0d 06 7c 13 ea 20 |n",,bloc|k%..|.. |
|00000fd0| 74 79 70 65 25 2c 72 65 | 73 75 6c 74 25 0d 06 86 |type%,re|sult%...|
|00000fe0| 07 ea 20 85 0d 06 90 55 | ee 20 85 20 ea 20 ee 20 |.. ....U|. . . . |
|00000ff0| 85 20 87 3a f2 63 6c 6f | 73 65 5f 64 6f 77 6e 3a |. .:.clo|se_down:|
|00001000| 85 20 9f 2c 22 4c 30 20 | 65 72 72 6f 72 3a 20 22 |. .,"L0 |error: "|
|00001010| 2b f6 24 2b 22 20 64 75 | 72 69 6e 67 20 65 72 72 |+.$+" du|ring err|
|00001020| 6f 72 20 68 61 6e 64 6c | 65 72 20 61 74 20 6c 69 |or handl|er at li|
|00001030| 6e 65 20 22 2b c3 28 9e | 29 0d 06 9a 1e c8 99 20 |ne "+.(.|)...... |
|00001040| 22 57 69 6d 70 5f 43 6f | 6d 6d 61 6e 64 57 69 6e |"Wimp_Co|mmandWin|
|00001050| 64 6f 77 22 2c 2d 31 0d | 06 a4 11 62 6c 6f 63 6b |dow",-1.|...block|
|00001060| 25 21 30 3d 65 72 72 25 | 0d 06 ae 22 e7 20 72 65 |%!0=err%|...". re|
|00001070| 74 75 72 6e 25 20 80 20 | 65 72 72 25 3c 3e 66 61 |turn% . |err%<>fa|
|00001080| 74 61 6c 5f 65 72 72 25 | 20 8c 0d 06 b8 19 20 20 |tal_err%| .....  |
|00001090| 20 e7 20 65 72 72 25 3d | 6d 6f 61 6e 5f 65 72 72 | . err%=|moan_err|
|000010a0| 25 20 8c 0d 06 c2 3c 20 | 20 20 20 20 20 74 79 70 |% ....< |     typ|
|000010b0| 65 25 3d 26 31 31 3a f4 | 20 4f 4b 20 62 75 74 74 |e%=&11:.| OK butt|
|000010c0| 6f 6e 20 61 6e 64 20 6e | 6f 20 22 45 72 72 6f 72 |on and n|o "Error|
|000010d0| 20 66 72 6f 6d 22 20 69 | 6e 20 74 69 74 6c 65 0d | from" i|n title.|
|000010e0| 06 cc 08 20 20 20 cc 0d | 06 d6 29 20 20 20 20 20 |...   ..|..)     |
|000010f0| 20 74 79 70 65 25 3d 33 | 3a f4 20 4f 4b 20 61 6e | type%=3|:. OK an|
|00001100| 64 20 43 61 6e 63 65 6c | 20 62 75 74 74 6f 6e 73 |d Cancel| buttons|
|00001110| 0d 06 e0 42 20 20 20 20 | 20 20 65 72 72 24 2b 3d |...B    |  err$+=|
|00001120| 22 20 61 74 20 22 2b c3 | 28 65 72 6c 25 29 2b 22 |" at "+.|(erl%)+"|
|00001130| 20 28 4f 4b 20 74 6f 20 | 63 6f 6e 74 69 6e 75 65 | (OK to |continue|
|00001140| 2c 20 43 61 6e 63 65 6c | 20 74 6f 20 71 75 69 74 |, Cancel| to quit|
|00001150| 29 22 0d 06 ea 08 20 20 | 20 cd 0d 06 f4 05 cc 0d |)"....  | .......|
|00001160| 06 fe 1e 20 20 20 74 79 | 70 65 25 3d 32 3a f4 20 |...   ty|pe%=2:. |
|00001170| 43 61 6e 63 65 6c 20 62 | 75 74 74 6f 6d 0d 07 08 |Cancel b|uttom...|
|00001180| 3a 20 20 20 65 72 72 24 | 2b 3d 22 20 61 74 20 22 |:   err$|+=" at "|
|00001190| 2b c3 28 65 72 6c 25 29 | 2b 22 20 28 41 70 70 6f |+.(erl%)|+" (Appo|
|000011a0| 69 6e 74 20 6d 75 73 74 | 20 71 75 69 74 20 61 74 |int must| quit at|
|000011b0| 20 6f 6e 63 65 29 22 0d | 07 12 05 cd 0d 07 1c 19 | once)".|........|
|000011c0| 24 28 62 6c 6f 63 6b 25 | 2b 34 29 3d 65 72 72 24 |$(block%|+4)=err$|
|000011d0| 2b bd 28 30 29 0d 07 26 | 3b c8 99 20 22 57 69 6d |+.(0)..&|;.. "Wim|
|000011e0| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 62 |p_Report|Error",b|
|000011f0| 6c 6f 63 6b 25 2c 74 79 | 70 65 25 2c 22 41 70 70 |lock%,ty|pe%,"App|
|00001200| 6f 69 6e 74 22 20 b8 20 | 2c 72 65 73 75 6c 74 25 |oint" . |,result%|
|00001210| 0d 07 30 39 f4 20 72 65 | 73 75 6c 74 3d 31 20 6d |..09. re|sult=1 m|
|00001220| 65 61 6e 73 20 4f 4b 20 | 73 65 6c 65 63 74 65 64 |eans OK |selected|
|00001230| 2c 20 32 20 6d 65 61 6e | 73 20 43 61 6e 63 65 6c |, 2 mean|s Cancel|
|00001240| 20 73 65 6c 65 63 74 65 | 64 0d 07 3a 11 e7 20 72 | selecte|d..:.. r|
|00001250| 65 73 75 6c 74 25 3d 32 | 20 8c 0d 07 44 12 20 20 |esult%=2| ...D.  |
|00001260| 20 f2 63 6c 6f 73 65 5f | 64 6f 77 6e 0d 07 4e 08 | .close_|down..N.|
|00001270| 20 20 20 e0 0d 07 58 05 | cd 0d 07 62 07 f7 20 85 |   ...X.|...b.. .|
|00001280| 0d 07 6c 05 e1 0d 07 76 | 06 20 3a 0d 07 80 47 20 |..l....v|. :...G |
|00001290| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|000012a0| 2d 2d 20 45 6e 64 20 6f | 66 20 65 72 72 6f 72 20 |-- End o|f error |
|000012b0| 68 61 6e 64 6c 69 6e 67 | 20 2d 2d 2d 2d 2d 2d 2d |handling| -------|
|000012c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012d0| 2d 2d 0d 07 8a 06 20 3a | 0d 07 94 06 20 3a 0d 07 |--.... :|.... :..|
|000012e0| 9e 06 20 3a 0d 07 a8 46 | 20 f4 20 2d 2d 2d 2d 2d |.. :...F| . -----|
|000012f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 50 72 6f |--------|---- Pro|
|00001300| 67 72 61 6d 20 69 6e 69 | 74 69 61 6c 69 73 61 74 |gram ini|tialisat|
|00001310| 69 6f 6e 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ion ----|--------|
|00001320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 07 b2 06 20 3a |--------|--.... :|
|00001330| 0d 07 bc 0d 20 dd 20 f2 | 73 65 74 75 70 0d 07 c6 |.... . .|setup...|
|00001340| 19 20 ea 20 41 25 2c 49 | 25 2c 4a 25 2c 56 25 2c |. . A%,I|%,J%,V%,|
|00001350| 76 61 6c 69 64 24 0d 07 | d0 20 20 46 3d 8e 28 22 |valid$..|.  F=.("|
|00001360| 3c 41 70 70 6f 69 6e 74 | 24 44 69 72 3e 2e 43 6f |<Appoint|$Dir>.Co|
|00001370| 6e 66 69 67 22 29 0d 07 | da 1b 20 45 61 72 6c 69 |nfig")..|.. Earli|
|00001380| 65 73 74 24 3d a4 72 65 | 61 64 5f 63 6f 6e 66 69 |est$=.re|ad_confi|
|00001390| 67 0d 07 e4 19 20 4c 61 | 74 65 73 74 24 3d a4 72 |g.... La|test$=.r|
|000013a0| 65 61 64 5f 63 6f 6e 66 | 69 67 0d 07 ee 19 20 53 |ead_conf|ig.... S|
|000013b0| 74 61 74 75 73 24 3d a4 | 72 65 61 64 5f 63 6f 6e |tatus$=.|read_con|
|000013c0| 66 69 67 0d 07 f8 15 20 | 4d 61 78 53 74 61 66 66 |fig.... |MaxStaff|
|000013d0| 25 3d bb 28 be 23 46 29 | 0d 08 02 15 20 4d 61 78 |%=.(.#F)|.... Max|
|000013e0| 53 6c 6f 74 73 25 3d bb | 28 be 23 46 29 0d 08 0c |Slots%=.|(.#F)...|
|000013f0| 12 20 73 6c 61 63 6b 25 | 3d bb 28 be 23 46 29 0d |. slack%|=.(.#F).|
|00001400| 08 16 35 20 72 65 74 72 | 79 25 3d bb 28 be 23 46 |..5 retr|y%=.(.#F|
|00001410| 29 3a e7 20 72 65 74 72 | 79 25 3d 31 35 20 8c 20 |):. retr|y%=15 . |
|00001420| 72 65 74 72 79 25 3d 31 | 20 8b 20 72 65 74 72 79 |retry%=1| . retry|
|00001430| 25 3d 2d 31 0d 08 20 15 | 20 63 6f 6e 66 69 67 77 |%=-1.. .| configw|
|00001440| 72 69 74 65 25 3d 8f 23 | 46 0d 08 2a 1c 20 45 76 |rite%=.#|F..*. Ev|
|00001450| 65 6e 74 44 61 74 65 24 | 3d a4 72 65 61 64 5f 63 |entDate$|=.read_c|
|00001460| 6f 6e 66 69 67 0d 08 34 | 1d 20 4d 61 74 68 53 63 |onfig..4|. MathSc|
|00001470| 69 4c 6f 63 24 3d a4 72 | 65 61 64 5f 63 6f 6e 66 |iLoc$=.r|ead_conf|
|00001480| 69 67 0d 08 3e 19 20 48 | 75 6d 4c 6f 63 24 3d a4 |ig..>. H|umLoc$=.|
|00001490| 72 65 61 64 5f 63 6f 6e | 66 69 67 0d 08 48 13 20 |read_con|fig..H. |
|000014a0| f2 63 6c 6f 73 65 5f 66 | 69 6c 65 28 46 29 0d 08 |.close_f|ile(F)..|
|000014b0| 52 1a 20 4d 61 78 54 61 | 62 73 25 3d 32 3a 4d 61 |R. MaxTa|bs%=2:Ma|
|000014c0| 78 4b 65 79 73 25 3d 32 | 0d 08 5c 10 20 f2 64 69 |xKeys%=2|..\. .di|
|000014d0| 6d 5f 61 72 72 61 79 73 | 0d 08 66 0f 20 f2 69 6e |m_arrays|..f. .in|
|000014e0| 69 74 5f 76 61 72 73 0d | 08 70 46 20 f4 20 2d 2d |it_vars.|.pF . --|
|000014f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001500| 20 49 6e 69 74 69 61 6c | 69 73 65 20 57 69 6d 70 | Initial|ise Wimp|
|00001510| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00001520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 08 7a |--------|-----..z|
|00001530| 13 20 24 62 6c 6f 63 6b | 25 3d 22 54 41 53 4b 22 |. $block|%="TASK"|
|00001540| 0d 08 84 28 20 6d 61 73 | 6b 25 3d 28 31 3c 3c 34 |...( mas|k%=(1<<4|
|00001550| 29 2b 28 31 3c 3c 35 29 | 2b 28 31 3c 3c 31 31 29 |)+(1<<5)|+(1<<11)|
|00001560| 2b 28 31 3c 3c 31 32 29 | 0d 08 8e 42 20 c8 99 20 |+(1<<12)|...B .. |
|00001570| 22 57 69 6d 70 5f 49 6e | 69 74 69 61 6c 69 73 65 |"Wimp_In|itialise|
|00001580| 22 2c 32 30 30 2c 21 62 | 6c 6f 63 6b 25 2c 22 41 |",200,!b|lock%,"A|
|00001590| 70 70 6f 69 6e 74 22 20 | b8 20 76 65 72 73 69 6f |ppoint" |. versio|
|000015a0| 6e 25 2c 6d 79 74 61 73 | 6b 25 0d 08 98 26 20 c8 |n%,mytas|k%...& .|
|000015b0| 99 20 22 49 6e 74 65 72 | 66 61 63 65 5f 49 6e 69 |. "Inter|face_Ini|
|000015c0| 74 69 61 6c 69 73 65 22 | 2c 6d 79 74 61 73 6b 25 |tialise"|,mytask%|
|000015d0| 0d 08 a2 4e 20 61 70 70 | 69 63 6f 6e 25 3d a4 63 |...N app|icon%=.c|
|000015e0| 72 65 61 74 65 5f 69 63 | 6f 6e 28 2d 31 2c 30 2c |reate_ic|on(-1,0,|
|000015f0| 2d 31 36 2c 31 34 34 2c | 31 31 30 2c 26 31 37 30 |-16,144,|110,&170|
|00001600| 30 33 31 32 42 2c 22 22 | 2c 64 62 61 73 65 25 2c |0312B,""|,dbase%,|
|00001610| 61 70 70 73 70 72 69 74 | 65 25 2c 31 30 29 0d 08 |appsprit|e%,10)..|
|00001620| ac 3f 20 f4 20 69 63 6f | 6e 25 3d 46 4e 63 72 65 |.? . ico|n%=FNcre|
|00001630| 61 74 65 5f 69 63 6f 6e | 28 2d 31 2c 30 2c 30 2c |ate_icon|(-1,0,0,|
|00001640| 36 38 2c 37 32 2c 26 33 | 30 30 32 2c 22 21 41 70 |68,72,&3|002,"!Ap|
|00001650| 70 6f 69 6e 74 22 2c 30 | 2c 30 2c 30 29 0d 08 b6 |point",0|,0,0)...|
|00001660| 3a 20 f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 53 65 |: . ----|----- Se|
|00001670| 74 20 75 70 20 48 65 61 | 70 20 4d 61 6e 61 67 65 |t up Hea|p Manage|
|00001680| 72 20 26 20 61 6e 63 68 | 6f 72 73 20 2d 2d 2d 2d |r & anch|ors ----|
|00001690| 2d 2d 2d 2d 2d 2d 2d 0d | 08 c0 18 20 f2 69 6e 69 |-------.|... .ini|
|000016a0| 74 68 65 61 70 73 28 31 | 32 38 2c 31 32 38 29 0d |theaps(1|28,128).|
|000016b0| 08 ca 36 20 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |..6 .. "|OS_File"|
|000016c0| 2c 35 2c 22 3c 41 70 70 | 6f 69 6e 74 24 44 69 72 |,5,"<App|oint$Dir|
|000016d0| 3e 2e 53 70 72 69 74 65 | 73 22 20 b8 20 2c 2c 2c |>.Sprite|s" . ,,,|
|000016e0| 2c 6c 65 6e 25 0d 08 d4 | 27 20 73 70 72 69 74 65 |,len%...|' sprite|
|000016f0| 73 25 3d a4 63 72 65 61 | 74 65 5f 66 69 78 65 64 |s%=.crea|te_fixed|
|00001700| 5f 62 6c 6f 63 6b 28 6c | 65 6e 25 29 0d 08 de 15 |_block(l|en%)....|
|00001710| 20 21 73 70 72 69 74 65 | 73 25 3d 6c 65 6e 25 2b | !sprite|s%=len%+|
|00001720| 34 0d 08 e8 38 20 c8 99 | 20 22 4f 53 5f 46 69 6c |4...8 ..| "OS_Fil|
|00001730| 65 22 2c 32 35 35 2c 22 | 3c 41 70 70 6f 69 6e 74 |e",255,"|<Appoint|
|00001740| 24 44 69 72 3e 2e 53 70 | 72 69 74 65 73 22 2c 73 |$Dir>.Sp|rites",s|
|00001750| 70 72 69 74 65 73 25 2b | 34 0d 08 f2 27 20 74 65 |prites%+|4...' te|
|00001760| 78 74 61 6e 63 68 6f 72 | 25 3d a4 63 72 65 61 74 |xtanchor|%=.creat|
|00001770| 65 5f 61 6e 63 68 6f 72 | 28 22 54 65 78 74 22 29 |e_anchor|("Text")|
|00001780| 0d 08 fc 2c 20 6b 65 79 | 61 6e 63 68 6f 72 25 3d |..., key|anchor%=|
|00001790| a4 63 72 65 61 74 65 5f | 61 6e 63 68 6f 72 28 22 |.create_|anchor("|
|000017a0| 50 72 69 6d 61 72 79 4b | 65 79 22 29 0d 09 06 31 |PrimaryK|ey")...1|
|000017b0| 20 70 72 69 6f 72 69 74 | 79 61 6e 63 68 6f 72 25 | priorit|yanchor%|
|000017c0| 3d a4 63 72 65 61 74 65 | 5f 61 6e 63 68 6f 72 28 |=.create|_anchor(|
|000017d0| 22 50 72 69 6f 72 69 74 | 69 65 73 22 29 0d 09 10 |"Priorit|ies")...|
|000017e0| 16 20 e3 20 49 25 3d 30 | 20 b8 20 4d 61 78 4b 65 |. . I%=0| . MaxKe|
|000017f0| 79 73 25 0d 09 1a 33 20 | 20 20 6b 65 79 61 6e 63 |ys%...3 |  keyanc|
|00001800| 68 6f 72 25 28 49 25 29 | 3d a4 63 72 65 61 74 65 |hor%(I%)|=.create|
|00001810| 5f 61 6e 63 68 6f 72 28 | 22 4b 65 79 20 23 22 2b |_anchor(|"Key #"+|
|00001820| c3 28 49 25 29 29 0d 09 | 24 09 20 ed 20 49 25 0d |.(I%))..|$. . I%.|
|00001830| 09 2e 16 20 e3 20 49 25 | 3d 30 20 b8 20 4d 61 78 |... . I%|=0 . Max|
|00001840| 54 61 62 73 25 0d 09 38 | 36 20 20 20 74 61 62 61 |Tabs%..8|6   taba|
|00001850| 6e 63 68 6f 72 25 28 49 | 25 29 3d a4 63 72 65 61 |nchor%(I|%)=.crea|
|00001860| 74 65 5f 61 6e 63 68 6f | 72 28 22 56 54 61 62 6c |te_ancho|r("VTabl|
|00001870| 65 20 23 22 2b c3 28 49 | 25 29 29 0d 09 42 09 20 |e #"+.(I|%))..B. |
|00001880| ed 20 49 25 0d 09 4c 46 | 20 f4 20 2d 2d 2d 2d 2d |. I%..LF| . -----|
|00001890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 56 2f 20 f2 |--------|--..V/ .|
|000018d0| 67 65 74 73 63 72 65 65 | 6e 73 69 7a 65 28 53 63 |getscree|nsize(Sc|
|000018e0| 72 65 65 6e 57 69 64 74 | 68 25 2c 53 63 72 65 65 |reenWidt|h%,Scree|
|000018f0| 6e 48 65 69 67 68 74 25 | 29 0d 09 60 14 20 f2 63 |nHeight%|)..`. .c|
|00001900| 72 65 61 74 65 5f 77 69 | 6e 64 6f 77 73 0d 09 6a |reate_wi|ndows..j|
|00001910| 10 20 f2 6d 61 6b 65 5f | 6d 65 6e 75 73 0d 09 74 |. .make_|menus..t|
|00001920| 06 20 e1 0d 09 7e 06 20 | 3a 0d 09 88 13 20 dd 20 |. ...~. |:.... . |
|00001930| a4 72 65 61 64 5f 63 6f | 6e 66 69 67 0d 09 92 0c |.read_co|nfig....|
|00001940| 20 ea 20 53 24 2c 50 25 | 0d 09 9c 0b 20 53 24 3d | . S$,P%|.... S$=|
|00001950| be 23 46 0d 09 a6 10 20 | 50 25 3d a7 53 24 2c 22 |.#F.... |P%=.S$,"|
|00001960| 7c 22 29 0d 09 b0 36 20 | e7 20 50 25 3d 30 20 8c ||")...6 |. P%=0 .|
|00001970| 20 85 20 32 35 35 2c 22 | 42 61 64 20 65 6e 74 72 | . 255,"|Bad entr|
|00001980| 79 20 69 6e 20 43 6f 6e | 66 69 67 20 66 69 6c 65 |y in Con|fig file|
|00001990| 3a 20 4e 6f 20 27 7c 27 | 22 0d 09 ba 0f 20 3d c0 |: No '|'|".... =.|
|000019a0| 53 24 2c 50 25 2d 31 29 | 0d 09 c4 06 20 3a 0d 09 |S$,P%-1)|.... :..|
|000019b0| ce 12 20 dd 20 f2 64 69 | 6d 5f 61 72 72 61 79 73 |.. . .di|m_arrays|
|000019c0| 0d 09 d8 12 20 de 20 66 | 69 65 6c 64 24 28 31 30 |.... . f|ield$(10|
|000019d0| 30 29 0d 09 e2 25 20 de | 20 53 75 62 6a 65 63 74 |0)...% .| Subject|
|000019e0| 25 28 35 29 2c 53 74 61 | 66 66 25 28 37 29 2c 54 |%(5),Sta|ff%(7),T|
|000019f0| 69 6d 65 25 28 37 29 0d | 09 ec 35 20 de 20 52 73 |ime%(7).|..5 . Rs|
|00001a00| 74 61 66 66 25 28 37 29 | 2c 57 73 74 61 66 66 25 |taff%(7)|,Wstaff%|
|00001a10| 28 37 29 2c 74 69 6d 65 | 25 28 4d 61 78 53 6c 6f |(7),time|%(MaxSlo|
|00001a20| 74 73 25 29 2c 72 65 63 | 25 28 33 29 0d 09 f6 2b |ts%),rec|%(3)...+|
|00001a30| 20 de 20 4b 4c 25 28 31 | 30 29 2c 4b 46 25 28 31 | . KL%(1|0),KF%(1|
|00001a40| 30 2c 31 29 2c 4b 57 25 | 28 31 30 2c 33 29 2c 6b |0,1),KW%|(10,3),k|
|00001a50| 65 79 24 28 31 30 29 0d | 0a 00 0e 20 de 20 6b 65 |ey$(10).|... . ke|
|00001a60| 79 20 32 35 36 0d 0a 0a | 1a 20 de 20 6d 65 6e 75 |y 256...|. . menu|
|00001a70| 25 28 35 29 2c 63 68 6f | 69 63 65 24 28 34 29 0d |%(5),cho|ice$(4).|
|00001a80| 0a 14 21 20 de 20 74 61 | 62 6c 65 24 28 31 39 29 |..! . ta|ble$(19)|
|00001a90| 2c 74 61 62 66 69 65 6c | 64 6c 65 6e 25 28 39 29 |,tabfiel|dlen%(9)|
|00001aa0| 0d 0a 1e 3e 20 de 20 53 | 74 61 66 66 43 6f 64 65 |...> . S|taffCode|
|00001ab0| 73 24 28 4d 61 78 53 74 | 61 66 66 25 29 2c 53 74 |s$(MaxSt|aff%),St|
|00001ac0| 61 66 66 41 70 70 74 73 | 25 28 4d 61 78 53 74 61 |affAppts|%(MaxSta|
|00001ad0| 66 66 25 2c 4d 61 78 53 | 6c 6f 74 73 25 29 0d 0a |ff%,MaxS|lots%)..|
|00001ae0| 28 4b 20 f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |(K . ---|--------|
|00001af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 41 6c 6c 6f 63 61 |--------|- Alloca|
|00001b00| 74 65 20 62 75 66 66 65 | 72 73 20 2d 2d 2d 2d 2d |te buffe|rs -----|
|00001b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 0a 32 28 20 69 6e |--------|-..2( in|
|00001b30| 64 69 72 65 63 74 69 6f | 6e 6d 65 6d 25 3d 26 34 |directio|nmem%=&4|
|00001b40| 30 30 30 3a 6d 65 6e 75 | 6d 65 6d 25 3d 26 38 30 |000:menu|mem%=&80|
|00001b50| 30 0d 0a 3c 14 20 de 20 | 4d 69 25 20 32 30 2c 4d |0..<. . |Mi% 20,M|
|00001b60| 6f 25 20 32 30 0d 0a 46 | 4a 20 de 20 62 6c 6f 63 |o% 20..F|J . bloc|
|00001b70| 6b 25 20 26 31 30 30 30 | 2c 62 6c 6f 63 6b 32 25 |k% &1000|,block2%|
|00001b80| 20 26 31 30 30 2c 62 6c | 6f 63 6b 33 25 20 26 31 | &100,bl|ock3% &1|
|00001b90| 30 30 2c 73 61 76 65 62 | 75 66 66 25 20 26 31 30 |00,saveb|uff% &10|
|00001ba0| 30 2c 63 68 6f 69 63 65 | 73 25 20 26 31 30 30 0d |0,choice|s% &100.|
|00001bb0| 0a 50 3b 20 de 20 62 75 | 66 66 25 20 69 6e 64 69 |.P; . bu|ff% indi|
|00001bc0| 72 65 63 74 69 6f 6e 6d | 65 6d 25 3a 65 6e 64 62 |rectionm|em%:endb|
|00001bd0| 75 66 66 25 3d 62 75 66 | 66 25 2b 69 6e 64 69 72 |uff%=buf|f%+indir|
|00001be0| 65 63 74 69 6f 6e 6d 65 | 6d 25 0d 0a 5a 43 20 de |ectionme|m%..ZC .|
|00001bf0| 20 6d 65 6e 62 6c 6b 25 | 20 6d 65 6e 75 6d 65 6d | menblk%| menumem|
|00001c00| 25 3a 6d 65 6e 5f 65 6e | 64 25 3d 6d 65 6e 62 6c |%:men_en|d%=menbl|
|00001c10| 6b 25 2b 6d 65 6e 75 6d | 65 6d 25 3a 6d 65 6e 75 |k%+menum|em%:menu|
|00001c20| 5f 70 74 72 25 3d 6d 65 | 6e 62 6c 6b 25 0d 0a 64 |_ptr%=me|nblk%..d|
|00001c30| 4b 20 f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |K . ----|--------|
|00001c40| 2d 20 49 6e 64 69 72 65 | 63 74 69 6f 6e 20 61 64 |- Indire|ction ad|
|00001c50| 64 72 65 73 73 65 73 20 | 66 6f 72 20 48 65 61 70 |dresses |for Heap|
|00001c60| 20 4d 61 6e 61 67 65 72 | 20 2d 2d 2d 2d 2d 2d 2d | Manager| -------|
|00001c70| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0a 6e 23 20 de 20 74 |--------|..n# . t|
|00001c80| 65 78 74 61 6e 63 68 6f | 72 25 20 33 3a 21 74 65 |extancho|r% 3:!te|
|00001c90| 78 74 61 6e 63 68 6f 72 | 25 3d 30 0d 0a 78 1b 20 |xtanchor|%=0..x. |
|00001ca0| de 20 6b 65 79 61 6e 63 | 68 6f 72 25 28 4d 61 78 |. keyanc|hor%(Max|
|00001cb0| 4b 65 79 73 25 29 0d 0a | 82 1b 20 de 20 74 61 62 |Keys%)..|.. . tab|
|00001cc0| 61 6e 63 68 6f 72 25 28 | 4d 61 78 54 61 62 73 25 |anchor%(|MaxTabs%|
|00001cd0| 29 0d 0a 8c 43 20 de 20 | 62 6f 78 25 20 31 36 2c |)...C . |box% 16,|
|00001ce0| 62 6f 78 32 25 20 31 36 | 2c 6d 61 74 72 69 78 25 |box2% 16|,matrix%|
|00001cf0| 20 31 36 2c 6f 72 69 67 | 69 6e 31 25 20 38 2c 6f | 16,orig|in1% 8,o|
|00001d00| 72 69 67 69 6e 32 25 20 | 38 2c 6f 72 69 67 69 6e |rigin2% |8,origin|
|00001d10| 33 25 20 38 0d 0a 96 27 | 20 de 20 68 61 6e 64 25 |3% 8...'| . hand%|
|00001d20| 20 31 36 3a 24 68 61 6e | 64 25 3d 22 50 70 74 72 | 16:$han|d%="Pptr|
|00001d30| 5f 68 61 6e 64 2c 31 32 | 2c 38 22 0d 0a a0 2b 20 |_hand,12|,8"...+ |
|00001d40| de 20 77 72 69 74 65 70 | 25 20 31 36 3a 24 77 72 |. writep|% 16:$wr|
|00001d50| 69 74 65 70 25 3d 22 50 | 70 74 72 5f 77 72 69 74 |itep%="P|ptr_writ|
|00001d60| 65 2c 34 2c 34 22 0d 0a | aa 22 20 de 20 64 62 61 |e,4,4"..|." . dba|
|00001d70| 73 65 25 20 31 30 3a 24 | 64 62 61 73 65 25 3d 22 |se% 10:$|dbase%="|
|00001d80| 4e 6f 20 64 61 74 61 22 | 0d 0a b4 2c 20 de 20 61 |No data"|..., . a|
|00001d90| 70 70 73 70 72 69 74 65 | 25 20 31 30 3a 24 61 70 |ppsprite|% 10:$ap|
|00001da0| 70 73 70 72 69 74 65 25 | 3d 22 53 21 41 70 70 6f |psprite%|="S!Appo|
|00001db0| 69 6e 74 22 0d 0a be 06 | 20 e1 0d 0a c8 06 20 3a |int"....| ..... :|
|00001dc0| 0d 0a d2 11 20 dd 20 f2 | 69 6e 69 74 5f 76 61 72 |.... . .|init_var|
|00001dd0| 73 0d 0a dc 13 20 52 65 | 73 74 72 69 63 74 65 64 |s.... Re|stricted|
|00001de0| 24 3d 22 22 0d 0a e6 20 | 20 4d 61 6b 69 6e 67 41 |$=""... | MakingA|
|00001df0| 70 70 74 73 25 3d a3 3a | 41 70 70 74 73 4d 61 64 |ppts%=.:|ApptsMad|
|00001e00| 65 25 3d a3 0d 0a f0 10 | 20 4c 65 6e 4c 69 6e 65 |e%=.....| LenLine|
|00001e10| 25 3d 36 31 0d 0a fa 18 | 20 55 24 3d c4 4c 65 6e |%=61....| U$=.Len|
|00001e20| 4c 69 6e 65 25 2d 35 2c | 22 3d 22 29 0d 0b 04 1b |Line%-5,|"=")....|
|00001e30| 20 4e 73 74 61 66 66 25 | 3d 30 3a 61 70 70 74 66 | Nstaff%|=0:apptf|
|00001e40| 69 6c 65 24 3d 22 22 0d | 0b 0e 41 20 61 63 63 65 |ile$="".|..A acce|
|00001e50| 73 73 62 75 74 74 6f 6e | 25 3d 30 3a 70 72 65 73 |ssbutton|%=0:pres|
|00001e60| 65 6e 74 25 3d 30 3a 69 | 6e 64 65 78 69 6e 67 25 |ent%=0:i|ndexing%|
|00001e70| 3d a3 3a 70 72 69 6e 74 | 69 6e 67 25 3d a3 3a 6c |=.:print|ing%=.:l|
|00001e80| 69 73 74 65 64 25 3d a3 | 0d 0b 18 0e 20 6d 79 72 |isted%=.|.... myr|
|00001e90| 65 66 25 3d 2d 31 0d 0b | 22 2f 20 46 3d 30 3a 68 |ef%=-1..|"/ F=0:h|
|00001ea0| 61 6e 64 6c 65 25 3d 30 | 3a 64 62 61 73 65 68 61 |andle%=0|:dbaseha|
|00001eb0| 6e 64 6c 65 25 3d 30 3a | 61 70 70 74 68 61 6e 64 |ndle%=0:|appthand|
|00001ec0| 6c 65 25 3d 30 0d 0b 2c | 37 20 71 75 69 74 25 3d |le%=0..,|7 quit%=|
|00001ed0| a3 3a 65 78 69 74 25 3d | a3 3a 72 61 6d 25 3d a3 |.:exit%=|.:ram%=.|
|00001ee0| 3a 41 63 63 65 73 73 25 | 3d a3 3a 4d 6f 64 69 66 |:Access%|=.:Modif|
|00001ef0| 79 25 3d a3 3a 77 61 72 | 6e 25 3d a3 0d 0b 36 14 |y%=.:war|n%=...6.|
|00001f00| 20 53 74 61 72 74 25 3d | 30 3a 45 6e 64 25 3d 30 | Start%=|0:End%=0|
|00001f10| 0d 0b 40 0c 20 46 70 74 | 72 25 3d 30 0d 0b 4a 31 |..@. Fpt|r%=0..J1|
|00001f20| 20 4c 61 73 74 54 61 62 | 6c 65 25 3d 2d 31 3a 54 | LastTab|le%=-1:T|
|00001f30| 61 62 6c 65 6e 75 6d 62 | 65 72 25 3d 2d 31 3a 54 |ablenumb|er%=-1:T|
|00001f40| 61 62 73 4c 6f 61 64 65 | 64 24 3d 22 22 0d 0b 54 |absLoade|d$=""..T|
|00001f50| 10 20 74 61 62 6c 65 24 | 28 29 3d 22 22 0d 0b 5e |. table$|()=""..^|
|00001f60| 20 20 52 6f 77 73 25 3d | 30 3a 54 61 62 46 69 65 |  Rows%=|0:TabFie|
|00001f70| 6c 64 73 25 3d 30 3a 52 | 65 63 25 3d 30 0d 0b 68 |lds%=0:R|ec%=0..h|
|00001f80| 32 20 4b 65 79 73 25 3d | 30 3a 4c 48 25 3d 39 30 |2 Keys%=|0:LH%=90|
|00001f90| 3a 66 69 6c 65 25 3d 30 | 3a 6b 65 79 25 3d 30 3a |:file%=0|:key%=0:|
|00001fa0| 74 6f 70 3d 38 2a 66 69 | 6c 65 25 2b 4c 48 25 0d |top=8*fi|le%+LH%.|
|00001fb0| 0b 72 11 20 52 55 25 3d | 30 3a 52 45 43 25 3d 30 |.r. RU%=|0:REC%=0|
|00001fc0| 0d 0b 7c 0f 20 75 70 5f | 70 65 6e 64 25 3d a3 0d |..|. up_|pend%=..|
|00001fd0| 0b 86 06 20 e1 0d 0b 90 | 06 20 3a 0d 0b 9a 4a 20 |... ....|. :...J |
|00001fe0| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00001ff0| 2d 2d 2d 20 45 6e 64 20 | 6f 66 20 50 72 6f 67 72 |--- End |of Progr|
|00002000| 61 6d 20 69 6e 69 74 69 | 61 6c 69 73 61 74 69 6f |am initi|alisatio|
|00002010| 6e 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |n ------|--------|
|00002020| 2d 2d 2d 2d 2d 0d 0b a4 | 06 20 3a 0d 0b ae 06 20 |-----...|. :.... |
|00002030| 3a 0d 0b b8 06 20 3a 0d | 0b c2 4a 20 f4 20 2d 2d |:.... :.|..J . --|
|00002040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00002050| 4d 65 6e 75 2d 72 65 6c | 61 74 65 64 20 72 6f 75 |Menu-rel|ated rou|
|00002060| 74 69 6e 65 73 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |tines --|--------|
|00002070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002080| 2d 0d 0b cc 06 20 3a 0d | 0b d6 12 20 dd 20 f2 6d |-.... :.|... . .m|
|00002090| 61 6b 65 5f 6d 65 6e 75 | 73 0d 0b e0 09 20 ea 20 |ake_menu|s.... . |
|000020a0| 49 25 0d 0b ea 71 20 6d | 65 6e 75 25 28 30 29 3d |I%...q m|enu%(0)=|
|000020b0| a4 63 72 65 61 74 65 5f | 6d 65 6e 75 28 6d 65 6e |.create_|menu(men|
|000020c0| 75 5f 70 74 72 25 2c 32 | 35 30 2c 22 41 70 70 6f |u_ptr%,2|50,"Appo|
|000020d0| 69 6e 74 2c 49 6e 66 6f | 3e 22 2b c3 28 69 6e 66 |int,Info|>"+.(inf|
|000020e0| 6f 57 25 29 2b 22 2c 7e | 43 72 65 61 74 65 20 6e |oW%)+",~|Create n|
|000020f0| 65 77 20 66 69 6c 65 2c | 7e 43 6c 6f 73 65 20 64 |ew file,|~Close d|
|00002100| 61 74 61 62 61 73 65 2c | 48 65 6c 70 2c 51 75 69 |atabase,|Help,Qui|
|00002110| 74 22 29 0d 0b f4 4e 20 | 6d 65 6e 75 25 28 34 29 |t")...N |menu%(4)|
|00002120| 3d a4 63 72 65 61 74 65 | 5f 6d 65 6e 75 28 6d 65 |=.create|_menu(me|
|00002130| 6e 75 5f 70 74 72 25 2c | 31 35 30 2c 22 53 74 61 |nu_ptr%,|150,"Sta|
|00002140| 66 66 20 6c 69 73 74 73 | 2c 22 2b c4 31 33 2c 22 |ff lists|,"+.13,"|
|00002150| 30 22 29 2b 22 2c 41 6c | 6c 20 73 74 61 66 66 22 |0")+",Al|l staff"|
|00002160| 29 0d 0b fe 16 6d 65 6e | 69 63 25 3d 6d 65 6e 75 |)....men|ic%=menu|
|00002170| 25 28 34 29 2b 32 38 0d | 0c 08 3e 53 74 61 66 66 |%(4)+28.|..>Staff|
|00002180| 70 6f 73 25 3d 6d 65 6e | 69 63 25 21 31 32 3a 6d |pos%=men|ic%!12:m|
|00002190| 65 6e 69 63 25 21 31 36 | 3d 62 75 66 66 25 3a 24 |enic%!16|=buff%:$|
|000021a0| 62 75 66 66 25 3d 22 41 | 41 2d 5a 22 3a 62 75 66 |buff%="A|A-Z":buf|
|000021b0| 66 25 2b 3d 34 0d 0c 12 | 2a 3f 6d 65 6e 69 63 25 |f%+=4...|*?menic%|
|000021c0| 3d 3f 6d 65 6e 69 63 25 | 20 84 20 28 31 3c 3c 32 |=?menic%| . (1<<2|
|000021d0| 29 3a 24 53 74 61 66 66 | 70 6f 73 25 3d 22 22 0d |):$Staff|pos%="".|
|000021e0| 0c 1c e0 6d 65 6e 75 25 | 28 31 29 3d a4 63 72 65 |...menu%|(1)=.cre|
|000021f0| 61 74 65 5f 6d 65 6e 75 | 28 6d 65 6e 75 5f 70 74 |ate_menu|(menu_pt|
|00002200| 72 25 2c 33 30 30 2c 22 | 41 70 70 6f 69 6e 74 2c |r%,300,"|Appoint,|
|00002210| 52 65 73 74 72 69 63 74 | 20 73 74 61 66 66 3e 22 |Restrict| staff>"|
|00002220| 2b c3 28 72 65 73 74 72 | 69 63 74 57 25 29 2b 22 |+.(restr|ictW%)+"|
|00002230| 2c 4d 61 6b 65 20 61 70 | 70 6f 69 6e 74 6d 65 6e |,Make ap|pointmen|
|00002240| 74 73 2c 7e 50 72 69 6e | 74 20 73 6c 69 70 73 3e |ts,~Prin|t slips>|
|00002250| 22 2b c3 28 70 72 69 6e | 74 57 25 29 2b 22 2c 7e |"+.(prin|tW%)+",~|
|00002260| 50 72 69 6e 74 20 6c 69 | 73 74 73 3e 22 2b c3 28 |Print li|sts>"+.(|
|00002270| 6d 65 6e 75 25 28 34 29 | 29 2b 22 2c 7e 50 72 69 |menu%(4)|)+",~Pri|
|00002280| 6e 74 20 70 72 6f 62 6c | 65 6d 73 2c 7e 49 6e 64 |nt probl|ems,~Ind|
|00002290| 65 78 20 61 70 70 6f 69 | 6e 74 6d 65 6e 74 73 2c |ex appoi|ntments,|
|000022a0| 53 68 6f 77 20 6a 6f 62 | 73 20 64 6f 6e 65 2c 4c |Show job|s done,L|
|000022b0| 6f 73 65 20 6c 69 73 74 | 2c 48 65 6c 70 22 29 0d |ose list|,Help").|
|000022c0| 0c 26 41 20 6d 65 6e 75 | 25 28 32 29 3d a4 63 72 |.&A menu|%(2)=.cr|
|000022d0| 65 61 74 65 5f 6d 65 6e | 75 28 6d 65 6e 75 5f 70 |eate_men|u(menu_p|
|000022e0| 74 72 25 2c 31 35 30 2c | 22 53 74 61 66 66 20 63 |tr%,150,|"Staff c|
|000022f0| 6f 64 65 73 2c 53 6f 72 | 74 2c 53 61 76 65 22 29 |odes,Sor|t,Save")|
|00002300| 0d 0c 30 12 20 79 62 61 | 72 25 3d 39 36 2b 35 2a |..0. yba|r%=96+5*|
|00002310| 34 34 0d 0c 3a 06 20 e1 | 0d 0c 44 06 20 3a 0d 0c |44..:. .|..D. :..|
|00002320| 4e 29 20 dd 20 a4 63 72 | 65 61 74 65 5f 6d 65 6e |N) . .cr|eate_men|
|00002330| 75 28 f8 20 6d 65 6e 75 | 25 2c 77 69 64 74 68 25 |u(. menu|%,width%|
|00002340| 2c 6c 69 73 74 24 29 0d | 0c 58 35 20 ea 20 73 74 |,list$).|.X5 . st|
|00002350| 61 72 74 25 2c 63 68 6f | 69 63 65 24 2c 65 6e 74 |art%,cho|ice$,ent|
|00002360| 72 69 65 73 25 2c 69 74 | 65 6d 25 2c 50 25 2c 51 |ries%,it|em%,P%,Q|
|00002370| 25 2c 53 25 2c 73 68 61 | 64 65 64 25 0d 0c 62 11 |%,S%,sha|ded%..b.|
|00002380| 20 73 74 61 72 74 25 3d | 6d 65 6e 75 25 0d 0c 6c | start%=|menu%..l|
|00002390| 13 20 50 25 3d a7 6c 69 | 73 74 24 2c 22 2c 22 29 |. P%=.li|st$,",")|
|000023a0| 0d 0c 76 18 20 24 6d 65 | 6e 75 25 3d c0 6c 69 73 |..v. $me|nu%=.lis|
|000023b0| 74 24 2c 50 25 2d 31 29 | 0d 0c 80 1a 20 6d 65 6e |t$,P%-1)|.... men|
|000023c0| 75 25 3f 31 32 3d 37 3a | 6d 65 6e 75 25 3f 31 33 |u%?12=7:|menu%?13|
|000023d0| 3d 32 0d 0c 8a 1a 20 6d | 65 6e 75 25 3f 31 34 3d |=2.... m|enu%?14=|
|000023e0| 37 3a 6d 65 6e 75 25 3f | 31 35 3d 30 0d 0c 94 2b |7:menu%?|15=0...+|
|000023f0| 20 6d 65 6e 75 25 21 31 | 36 3d 77 69 64 74 68 25 | menu%!1|6=width%|
|00002400| 3a 6d 65 6e 75 25 21 32 | 30 3d 34 34 3a 6d 65 6e |:menu%!2|0=44:men|
|00002410| 75 25 21 32 34 3d 30 0d | 0c 9e 13 20 69 74 65 6d |u%!24=0.|... item|
|00002420| 25 3d 6d 65 6e 75 25 2b | 32 38 0d 0c a8 0f 20 6c |%=menu%+|28.... l|
|00002430| 69 73 74 24 2b 3d 22 2c | 22 0d 0c b2 0f 20 65 6e |ist$+=",|".... en|
|00002440| 74 72 69 65 73 25 3d 30 | 0d 0c bc 06 20 f5 0d 0c |tries%=0|.... ...|
|00002450| c6 0e 20 20 20 51 25 3d | 50 25 2b 31 0d 0c d0 18 |..   Q%=|P%+1....|
|00002460| 20 20 20 50 25 3d a7 6c | 69 73 74 24 2c 22 2c 22 |   P%=.l|ist$,","|
|00002470| 2c 51 25 29 0d 0c da 0f | 20 20 20 e7 20 50 25 3e |,Q%)....|   . P%>|
|00002480| 30 20 8c 0d 0c e4 1b 20 | 20 20 20 20 21 69 74 65 |0 ..... |    !ite|
|00002490| 6d 25 3d 30 3a 73 68 61 | 64 65 64 25 3d 30 0d 0c |m%=0:sha|ded%=0..|
|000024a0| ee 21 20 20 20 20 20 63 | 68 6f 69 63 65 24 3d c1 |.!     c|hoice$=.|
|000024b0| 6c 69 73 74 24 2c 51 25 | 2c 50 25 2d 51 25 29 0d |list$,Q%|,P%-Q%).|
|000024c0| 0c f8 40 20 20 20 20 20 | e7 20 c0 63 68 6f 69 63 |..@     |. .choic|
|000024d0| 65 24 2c 31 29 3d 22 7e | 22 20 8c 20 63 68 6f 69 |e$,1)="~|" . choi|
|000024e0| 63 65 24 3d c1 63 68 6f | 69 63 65 24 2c 32 29 3a |ce$=.cho|ice$,2):|
|000024f0| 73 68 61 64 65 64 25 3d | 28 31 3c 3c 32 32 29 0d |shaded%=|(1<<22).|
|00002500| 0d 02 42 20 20 20 20 20 | e7 20 c0 63 68 6f 69 63 |..B     |. .choic|
|00002510| 65 24 2c 31 29 3d 22 5f | 22 20 8c 20 63 68 6f 69 |e$,1)="_|" . choi|
|00002520| 63 65 24 3d c1 63 68 6f | 69 63 65 24 2c 32 29 3a |ce$=.cho|ice$,2):|
|00002530| 3f 69 74 65 6d 25 3d 3f | 69 74 65 6d 25 20 84 20 |?item%=?|item% . |
|00002540| 32 0d 0d 0c 19 20 20 20 | 20 20 53 25 3d a7 63 68 |2....   |  S%=.ch|
|00002550| 6f 69 63 65 24 2c 22 21 | 22 29 0d 0d 16 36 20 20 |oice$,"!|")...6  |
|00002560| 20 20 20 e7 20 53 25 3e | 30 20 8c 20 3f 69 74 65 |   . S%>|0 . ?ite|
|00002570| 6d 25 3d 3f 69 74 65 6d | 25 20 84 20 38 3a c1 63 |m%=?item|% . 8:.c|
|00002580| 68 6f 69 63 65 24 2c 53 | 25 2c 31 29 3d 22 3e 22 |hoice$,S|%,1)=">"|
|00002590| 0d 0d 20 19 20 20 20 20 | 20 53 25 3d a7 63 68 6f |.. .    | S%=.cho|
|000025a0| 69 63 65 24 2c 22 3e 22 | 29 0d 0d 2a 11 20 20 20 |ice$,">"|)..*.   |
|000025b0| 20 20 e7 20 53 25 3d 30 | 20 8c 0d 0d 34 15 20 20 |  . S%=0| ...4.  |
|000025c0| 20 20 20 20 20 69 74 65 | 6d 25 21 34 3d 2d 31 0d |     ite|m%!4=-1.|
|000025d0| 0d 3e 0c 20 20 20 20 20 | 20 20 cc 0d 0d 48 24 20 |.>.     |  ...H$ |
|000025e0| 20 20 20 20 20 20 69 74 | 65 6d 25 21 34 3d bb 28 |      it|em%!4=.(|
|000025f0| c1 63 68 6f 69 63 65 24 | 2c 53 25 2b 31 29 29 0d |.choice$|,S%+1)).|
|00002600| 0d 52 21 20 20 20 20 20 | 20 20 63 68 6f 69 63 65 |.R!     |  choice|
|00002610| 24 3d c0 63 68 6f 69 63 | 65 24 2c 53 25 2d 31 29 |$=.choic|e$,S%-1)|
|00002620| 0d 0d 5c 0a 20 20 20 20 | 20 cd 0d 0d 66 1b 20 20 |..\.    | ...f.  |
|00002630| 20 20 20 e7 20 a9 28 63 | 68 6f 69 63 65 24 29 3c |   . .(c|hoice$)<|
|00002640| 3d 31 32 20 8c 0d 0d 70 | 1e 20 20 20 20 20 20 20 |=12 ...p|.       |
|00002650| 24 28 69 74 65 6d 25 2b | 31 32 29 3d 63 68 6f 69 |$(item%+|12)=choi|
|00002660| 63 65 24 0d 0d 7a 1b 20 | 20 20 20 20 20 20 69 74 |ce$..z. |      it|
|00002670| 65 6d 25 21 38 3d 26 37 | 30 30 30 30 32 31 0d 0d |em%!8=&7|000021..|
|00002680| 84 0c 20 20 20 20 20 20 | 20 cc 0d 0d 8e 1a 20 20 |..      | .....  |
|00002690| 20 20 20 20 20 4c 25 3d | a9 28 63 68 6f 69 63 65 |     L%=|.(choice|
|000026a0| 24 29 2b 31 0d 0d 98 4a | 20 20 20 20 20 20 20 69 |$)+1...J|       i|
|000026b0| 74 65 6d 25 21 31 32 3d | 62 75 66 66 25 3a 24 62 |tem%!12=|buff%:$b|
|000026c0| 75 66 66 25 3d 63 68 6f | 69 63 65 24 3a 62 75 66 |uff%=cho|ice$:buf|
|000026d0| 66 25 2b 3d 4c 25 3a 69 | 74 65 6d 25 21 31 36 3d |f%+=L%:i|tem%!16=|
|000026e0| 2d 31 3a 69 74 65 6d 25 | 21 32 30 3d 4c 25 0d 0d |-1:item%|!20=L%..|
|000026f0| a2 1b 20 20 20 20 20 20 | 20 69 74 65 6d 25 21 38 |..      | item%!8|
|00002700| 3d 26 37 30 30 30 31 32 | 31 0d 0d ac 0a 20 20 20 |=&700012|1....   |
|00002710| 20 20 cd 0d 0d b6 22 20 | 20 20 20 20 69 74 65 6d |  ...." |    item|
|00002720| 25 21 38 3d 69 74 65 6d | 25 21 38 20 84 20 73 68 |%!8=item|%!8 . sh|
|00002730| 61 64 65 64 25 0d 0d c0 | 12 20 20 20 20 20 69 74 |aded%...|.     it|
|00002740| 65 6d 25 2b 3d 32 34 0d | 0d ca 14 20 20 20 20 20 |em%+=24.|...     |
|00002750| 65 6e 74 72 69 65 73 25 | 2b 3d 31 0d 0d d4 08 20 |entries%|+=1.... |
|00002760| 20 20 cd 0d 0d de 0b 20 | fd 20 50 25 3d 30 0d 0d |  ..... |. P%=0..|
|00002770| e8 1e 20 69 74 65 6d 25 | 21 2d 32 34 3d 69 74 65 |.. item%|!-24=ite|
|00002780| 6d 25 21 2d 32 34 20 84 | 20 26 38 30 0d 0d f2 10 |m%!-24 .| &80....|
|00002790| 20 6d 65 6e 75 25 3d 69 | 74 65 6d 25 0d 0d fc 52 | menu%=i|tem%...R|
|000027a0| 20 e7 20 6d 65 6e 75 25 | 3e 6d 65 6e 5f 65 6e 64 | . menu%|>men_end|
|000027b0| 25 20 8c 20 85 20 a2 20 | 30 2c 22 4e 6f 74 20 65 |% . . . |0,"Not e|
|000027c0| 6e 6f 75 67 68 20 72 6f | 6f 6d 20 66 6f 72 20 6d |nough ro|om for m|
|000027d0| 65 6e 75 73 20 28 69 6e | 74 65 72 6e 61 6c 20 65 |enus (in|ternal e|
|000027e0| 72 72 6f 72 20 63 6f 64 | 65 20 35 30 29 22 0d 0e |rror cod|e 50)"..|
|000027f0| 06 0c 20 3d 73 74 61 72 | 74 25 0d 0e 10 06 20 3a |.. =star|t%.... :|
|00002800| 0d 0e 1a 1d 20 dd 20 f2 | 74 69 63 6b 28 6d 65 6e |.... . .|tick(men|
|00002810| 75 25 2c 69 74 65 6d 25 | 2c 6f 6e 25 29 0d 0e 24 |u%,item%|,on%)..$|
|00002820| 1c 20 69 74 65 6d 25 3d | 6d 65 6e 75 25 2b 32 38 |. item%=|menu%+28|
|00002830| 2b 69 74 65 6d 25 2a 32 | 34 0d 0e 2e 0d 20 c8 8e |+item%*2|4.... ..|
|00002840| 20 6f 6e 25 20 ca 0d 0e | 38 1c 20 20 20 c9 20 b9 | on% ...|8.   . .|
|00002850| 3a 3f 69 74 65 6d 25 3d | 3f 69 74 65 6d 25 20 84 |:?item%=|?item% .|
|00002860| 20 31 0d 0e 42 1e 20 20 | 20 c9 20 a3 3a 3f 69 74 | 1..B.  | . .:?it|
|00002870| 65 6d 25 3d 3f 69 74 65 | 6d 25 20 80 20 32 35 34 |em%=?ite|m% . 254|
|00002880| 0d 0e 4c 06 20 cb 0d 0e | 56 06 20 e1 0d 0e 60 06 |..L. ...|V. ...`.|
|00002890| 20 3a 0d 0e 6a 23 20 dd | 20 f2 74 69 63 6b 5f 6f | :..j# .| .tick_o|
|000028a0| 6e 65 28 6d 65 6e 75 25 | 2c 6c 61 73 74 25 2c 69 |ne(menu%|,last%,i|
|000028b0| 74 65 6d 25 29 0d 0e 74 | 09 20 ea 20 49 25 0d 0e |tem%)..t|. . I%..|
|000028c0| 7e 13 20 e3 20 49 25 3d | 30 20 b8 20 6c 61 73 74 |~. . I%=|0 . last|
|000028d0| 25 0d 0e 88 21 20 20 20 | f2 74 69 63 6b 28 6d 65 |%...!   |.tick(me|
|000028e0| 6e 75 25 2c 49 25 2c 28 | 49 25 3d 69 74 65 6d 25 |nu%,I%,(|I%=item%|
|000028f0| 29 29 0d 0e 92 09 20 ed | 20 49 25 0d 0e 9c 06 20 |)).... .| I%.... |
|00002900| e1 0d 0e a6 06 20 3a 0d | 0e b0 1c 20 dd 20 f2 6c |..... :.|... . .l|
|00002910| 69 74 28 6d 65 6e 75 25 | 2c 69 74 65 6d 25 2c 6f |it(menu%|,item%,o|
|00002920| 6e 25 29 0d 0e ba 1c 20 | 69 74 65 6d 25 3d 6d 65 |n%).... |item%=me|
|00002930| 6e 75 25 2b 32 38 2b 69 | 74 65 6d 25 2a 32 34 0d |nu%+28+i|tem%*24.|
|00002940| 0e c4 0d 20 c8 8e 20 6f | 6e 25 20 ca 0d 0e ce 27 |... .. o|n% ....'|
|00002950| 20 20 20 c9 20 b9 3a 20 | 69 74 65 6d 25 21 38 3d |   . .: |item%!8=|
|00002960| 69 74 65 6d 25 21 38 20 | 80 20 ac 20 28 31 3c 3c |item%!8 |. . (1<<|
|00002970| 32 32 29 0d 0e d8 25 20 | 20 20 c9 20 a3 3a 20 69 |22)...% |  . .: i|
|00002980| 74 65 6d 25 21 38 3d 69 | 74 65 6d 25 21 38 20 84 |tem%!8=i|tem%!8 .|
|00002990| 20 28 31 3c 3c 32 32 29 | 0d 0e e2 06 20 cb 0d 0e | (1<<22)|.... ...|
|000029a0| ec 06 20 e1 0d 0e f6 06 | 20 3a 0d 0f 00 1e 20 dd |.. .....| :.... .|
|000029b0| 20 f2 73 68 6f 77 5f 6d | 65 6e 75 28 6d 65 6e 75 | .show_m|enu(menu|
|000029c0| 25 2c 78 25 2c 79 25 29 | 0d 0f 0a 2a 20 6d 65 6e |%,x%,y%)|...* men|
|000029d0| 75 68 61 6e 64 6c 65 25 | 3d 6d 65 6e 75 25 3a 6d |uhandle%|=menu%:m|
|000029e0| 65 6e 75 78 25 3d 78 25 | 3a 6d 65 6e 75 79 25 3d |enux%=x%|:menuy%=|
|000029f0| 79 25 0d 0f 14 26 20 c8 | 99 20 22 57 69 6d 70 5f |y%...& .|. "Wimp_|
|00002a00| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 6d 65 6e |CreateMe|nu",,men|
|00002a10| 75 25 2c 78 25 2c 79 25 | 0d 0f 1e 06 20 e1 0d 0f |u%,x%,y%|.... ...|
|00002a20| 28 06 20 3a 0d 0f 32 13 | 20 dd 20 f2 6d 65 6e 75 |(. :..2.| . .menu|
|00002a30| 5f 73 65 6c 65 63 74 0d | 0f 3c 1c 20 ea 20 68 61 |_select.|.<. . ha|
|00002a40| 6e 64 6c 65 25 2c 50 25 | 2c 51 25 2c 49 25 2c 6b |ndle%,P%|,Q%,I%,k|
|00002a50| 65 79 25 0d 0f 46 27 20 | 63 68 6f 69 63 65 31 25 |ey%..F' |choice1%|
|00002a60| 3d 21 62 6c 6f 63 6b 25 | 3a 63 68 6f 69 63 65 32 |=!block%|:choice2|
|00002a70| 25 3d 62 6c 6f 63 6b 25 | 21 34 0d 0f 50 29 20 63 |%=block%|!4..P) c|
|00002a80| 68 6f 69 63 65 33 25 3d | 62 6c 6f 63 6b 25 21 38 |hoice3%=|block%!8|
|00002a90| 3a 63 68 6f 69 63 65 34 | 25 3d 62 6c 6f 63 6b 25 |:choice4|%=block%|
|00002aa0| 21 31 32 0d 0f 5a 09 20 | 50 25 3d 31 0d 0f 64 36 |!12..Z. |P%=1..d6|
|00002ab0| 20 c8 99 20 22 57 69 6d | 70 5f 44 65 63 6f 64 65 | .. "Wim|p_Decode|
|00002ac0| 4d 65 6e 75 22 2c 2c 6d | 65 6e 75 68 61 6e 64 6c |Menu",,m|enuhandl|
|00002ad0| 65 25 2c 62 6c 6f 63 6b | 25 2c 63 68 6f 69 63 65 |e%,block|%,choice|
|00002ae0| 73 25 0d 0f 6e 0f 20 e3 | 20 49 25 3d 31 20 b8 20 |s%..n. .| I%=1 . |
|00002af0| 34 0d 0f 78 1e 20 20 20 | 51 25 3d a7 24 63 68 6f |4..x.   |Q%=.$cho|
|00002b00| 69 63 65 73 25 2c 22 2e | 22 2c 50 25 2b 31 29 0d |ices%,".|",P%+1).|
|00002b10| 0f 82 27 20 20 20 63 68 | 6f 69 63 65 24 28 49 25 |..'   ch|oice$(I%|
|00002b20| 29 3d c1 24 63 68 6f 69 | 63 65 73 25 2c 50 25 2c |)=.$choi|ces%,P%,|
|00002b30| 51 25 2d 50 25 29 0d 0f | 8c 0e 20 20 20 50 25 3d |Q%-P%)..|..   P%=|
|00002b40| 51 25 2b 31 0d 0f 96 09 | 20 ed 20 49 25 0d 0f a0 |Q%+1....| . I%...|
|00002b50| 25 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 50 6f |% .. "Wi|mp_GetPo|
|00002b60| 69 6e 74 65 72 49 6e 66 | 6f 22 2c 2c 62 6c 6f 63 |interInf|o",,bloc|
|00002b70| 6b 25 0d 0f aa 15 20 72 | 65 64 6f 25 3d 62 6c 6f |k%.... r|edo%=blo|
|00002b80| 63 6b 25 21 38 3d 31 0d | 0f b4 15 20 c8 8e 20 6d |ck%!8=1.|... .. m|
|00002b90| 65 6e 75 68 61 6e 64 6c | 65 25 20 ca 0d 0f be 12 |enuhandl|e% .....|
|00002ba0| 20 20 20 c9 20 6d 65 6e | 75 25 28 30 29 3a 0d 0f |   . men|u%(0):..|
|00002bb0| c8 16 20 20 20 c8 8e 20 | 63 68 6f 69 63 65 24 28 |..   .. |choice$(|
|00002bc0| 31 29 20 ca 0d 0f d2 9a | 20 20 20 20 20 c9 20 22 |1) .....|     . "|
|00002bd0| 43 72 65 61 74 65 20 6e | 65 77 20 66 69 6c 65 22 |Create n|ew file"|
|00002be0| 3a e7 20 a4 63 6f 6e 66 | 69 72 6d 28 22 41 72 65 |:. .conf|irm("Are|
|00002bf0| 20 79 6f 75 20 73 75 72 | 65 3f 20 41 6e 79 20 65 | you sur|e? Any e|
|00002c00| 78 69 73 74 69 6e 67 20 | 61 70 70 6f 69 6e 74 6d |xisting |appointm|
|00002c10| 65 6e 74 20 64 61 74 61 | 20 77 69 6c 6c 20 62 65 |ent data| will be|
|00002c20| 20 64 65 73 74 72 6f 79 | 65 64 2e 22 29 3d b9 20 | destroy|ed.")=. |
|00002c30| 8c 20 f2 6d 61 6b 65 5f | 66 69 6c 65 28 61 70 70 |. .make_|file(app|
|00002c40| 74 66 69 6c 65 24 2c 52 | 41 25 29 3a f2 69 6e 64 |tfile$,R|A%):.ind|
|00002c50| 65 78 5f 74 75 74 6f 72 | 73 28 52 41 25 29 0d 0f |ex_tutor|s(RA%)..|
|00002c60| dc 3b 20 20 20 20 20 c9 | 20 22 48 65 6c 70 22 3a |.;     .| "Help":|
|00002c70| c8 99 20 22 57 69 6d 70 | 5f 53 74 61 72 74 54 61 |.. "Wimp|_StartTa|
|00002c80| 73 6b 22 2c 22 3c 41 70 | 70 6f 69 6e 74 24 44 69 |sk","<Ap|point$Di|
|00002c90| 72 3e 2e 21 48 65 6c 70 | 22 0d 0f e6 21 20 20 20 |r>.!Help|"...!   |
|00002ca0| 20 20 c9 20 22 43 6c 6f | 73 65 20 64 61 74 61 62 |  . "Clo|se datab|
|00002cb0| 61 73 65 22 3a f2 65 78 | 69 74 0d 0f f0 19 20 20 |ase":.ex|it....  |
|00002cc0| 20 20 20 c9 20 22 51 75 | 69 74 22 3a 71 75 69 74 |   . "Qu|it":quit|
|00002cd0| 25 3d b9 0d 0f fa 08 20 | 20 20 cb 0d 10 04 12 20 |%=..... |  ..... |
|00002ce0| 20 20 c9 20 6d 65 6e 75 | 25 28 31 29 3a 0d 10 0e |  . menu|%(1):...|
|00002cf0| 16 20 20 20 c8 8e 20 63 | 68 6f 69 63 65 24 28 31 |.   .. c|hoice$(1|
|00002d00| 29 20 ca 0d 10 18 2c 20 | 20 20 20 20 c9 20 22 4d |) ...., |    . "M|
|00002d10| 61 6b 65 20 61 70 70 6f | 69 6e 74 6d 65 6e 74 73 |ake appo|intments|
|00002d20| 22 3a f2 61 70 70 6f 69 | 6e 74 6d 65 6e 74 73 0d |":.appoi|ntments.|
|00002d30| 10 22 19 20 20 20 20 20 | c9 20 22 50 72 69 6e 74 |.".     |. "Print|
|00002d40| 20 6c 69 73 74 73 22 3a | 0d 10 2c 16 20 20 20 20 | lists":|..,.    |
|00002d50| 20 c8 8e 20 63 68 6f 69 | 63 65 32 25 20 ca 0d 10 | .. choi|ce2% ...|
|00002d60| 36 21 20 20 20 20 20 20 | 20 c9 20 30 3a f2 6c 69 |6!      | . 0:.li|
|00002d70| 73 74 73 28 24 53 74 61 | 66 66 70 6f 73 25 29 0d |sts($Sta|ffpos%).|
|00002d80| 10 40 1c 20 20 20 20 20 | 20 20 c9 20 31 3a f2 6c |.@.     |  . 1:.l|
|00002d90| 69 73 74 73 28 22 41 4c | 4c 22 29 0d 10 4a 0a 20 |ists("AL|L")..J. |
|00002da0| 20 20 20 20 cb 0d 10 54 | 2b 20 20 20 20 20 c9 20 |    ...T|+     . |
|00002db0| 22 50 72 69 6e 74 20 70 | 72 6f 62 6c 65 6d 73 22 |"Print p|roblems"|
|00002dc0| 3a f2 70 72 69 6e 74 5f | 70 72 6f 62 6c 65 6d 73 |:.print_|problems|
|00002dd0| 0d 10 5e 2c 20 20 20 20 | 20 c9 20 22 49 6e 64 65 |..^,    | . "Inde|
|00002de0| 78 20 61 70 70 6f 69 6e | 74 6d 65 6e 74 73 22 3a |x appoin|tments":|
|00002df0| f2 69 6e 64 65 78 5f 61 | 70 70 74 73 0d 10 68 25 |.index_a|ppts..h%|
|00002e00| 20 20 20 20 20 c9 20 22 | 53 68 6f 77 20 6a 6f 62 |     . "|Show job|
|00002e10| 73 20 64 6f 6e 65 22 3a | 2a 4a 6f 62 73 44 6f 6e |s done":|*JobsDon|
|00002e20| 65 0d 10 72 17 20 20 20 | 20 20 c9 20 22 4c 6f 73 |e..r.   |  . "Los|
|00002e30| 65 20 6c 69 73 74 22 3a | 0d 10 7c 39 20 20 20 20 |e list":|..|9    |
|00002e40| 20 f2 73 63 72 61 70 5f | 73 6c 69 64 69 6e 67 5f | .scrap_|sliding_|
|00002e50| 62 6c 6f 63 6b 28 74 65 | 78 74 61 6e 63 68 6f 72 |block(te|xtanchor|
|00002e60| 25 29 3a 21 74 65 78 74 | 61 6e 63 68 6f 72 25 3d |%):!text|anchor%=|
|00002e70| 30 0d 10 86 1e 20 20 20 | 20 20 f2 63 6c 6f 73 65 |0....   |  .close|
|00002e80| 5f 77 69 6e 64 6f 77 28 | 6c 69 73 74 57 25 29 0d |_window(|listW%).|
|00002e90| 10 90 12 20 20 20 20 20 | 6c 69 73 74 65 64 25 3d |...     |listed%=|
|00002ea0| a3 0d 10 9a 3b 20 20 20 | 20 20 c9 20 22 48 65 6c |....;   |  . "Hel|
|00002eb0| 70 22 3a c8 99 20 22 57 | 69 6d 70 5f 53 74 61 72 |p":.. "W|imp_Star|
|00002ec0| 74 54 61 73 6b 22 2c 22 | 3c 41 70 70 6f 69 6e 74 |tTask","|<Appoint|
|00002ed0| 24 44 69 72 3e 2e 21 48 | 65 6c 70 22 0d 10 a4 08 |$Dir>.!H|elp"....|
|00002ee0| 20 20 20 cb 0d 10 ae 12 | 20 20 20 c9 20 6d 65 6e |   .....|   . men|
|00002ef0| 75 25 28 32 29 3a 0d 10 | b8 16 20 20 20 c8 8e 20 |u%(2):..|..   .. |
|00002f00| 63 68 6f 69 63 65 24 28 | 31 29 20 ca 0d 10 c2 26 |choice$(|1) ....&|
|00002f10| 20 20 20 20 20 c9 20 22 | 53 6f 72 74 22 3a f2 73 |     . "|Sort":.s|
|00002f20| 6f 72 74 5f 74 61 62 6c | 65 28 22 53 74 61 66 66 |ort_tabl|e("Staff|
|00002f30| 22 29 0d 10 cc 26 20 20 | 20 20 20 c9 20 22 53 61 |")...&  |   . "Sa|
|00002f40| 76 65 22 3a f2 73 61 76 | 65 5f 74 61 62 6c 65 28 |ve":.sav|e_table(|
|00002f50| 22 53 74 61 66 66 22 29 | 0d 10 d6 08 20 20 20 cb |"Staff")|....   .|
|00002f60| 0d 10 e0 06 20 cb 0d 10 | ea 10 20 e7 20 ac 20 71 |.... ...|.. . . q|
|00002f70| 75 69 74 25 20 8c 0d 10 | f4 36 20 20 20 e7 20 72 |uit% ...|.6   . r|
|00002f80| 65 64 6f 25 20 8c 20 f2 | 73 68 6f 77 5f 6d 65 6e |edo% . .|show_men|
|00002f90| 75 28 6d 65 6e 75 68 61 | 6e 64 6c 65 25 2c 6d 65 |u(menuha|ndle%,me|
|00002fa0| 6e 75 78 25 2c 6d 65 6e | 75 79 25 29 0d 10 fe 06 |nux%,men|uy%)....|
|00002fb0| 20 cd 0d 11 08 06 20 e1 | 0d 11 12 06 20 3a 0d 11 | ..... .|.... :..|
|00002fc0| 1c 49 20 f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.I . ---|--------|
|00002fd0| 2d 2d 2d 2d 2d 20 45 6e | 64 20 6f 66 20 4d 65 6e |----- En|d of Men|
|00002fe0| 75 2d 72 65 6c 61 74 65 | 64 20 72 6f 75 74 69 6e |u-relate|d routin|
|00002ff0| 65 73 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |es -----|--------|
|00003000| 2d 2d 2d 2d 2d 2d 2d 0d | 11 26 06 20 3a 0d 11 30 |-------.|.&. :..0|
|00003010| 06 20 3a 0d 11 3a 06 20 | 3a 0d 11 44 4b f4 20 49 |. :..:. |:..DK. I|
|00003020| 63 6f 6e 20 68 61 6e 64 | 6c 69 6e 67 20 2d 2d 2d |con hand|ling ---|
|00003030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003060| 2d 2d 2d 2d 0d 11 4e 05 | 3a 0d 11 58 54 dd 20 a4 |----..N.|:..XT. .|
|00003070| 63 72 65 61 74 65 5f 69 | 63 6f 6e 28 77 68 61 6e |create_i|con(whan|
|00003080| 64 6c 65 25 2c 78 6d 69 | 6e 25 2c 79 6d 69 6e 25 |dle%,xmi|n%,ymin%|
|00003090| 2c 77 69 64 74 68 25 2c | 68 65 69 67 68 74 25 2c |,width%,|height%,|
|000030a0| 69 63 6f 6e 66 6c 61 67 | 73 25 2c 74 65 78 74 24 |iconflag|s%,text$|
|000030b0| 2c 64 31 25 2c 64 32 25 | 2c 64 33 25 29 0d 11 62 |,d1%,d2%|,d3%)..b|
|000030c0| 0d ea 20 68 61 6e 64 6c | 65 25 0d 11 6c 15 62 6c |.. handl|e%..l.bl|
|000030d0| 6f 63 6b 25 21 30 3d 77 | 68 61 6e 64 6c 65 25 0d |ock%!0=w|handle%.|
|000030e0| 11 76 21 62 6c 6f 63 6b | 25 21 34 3d 78 6d 69 6e |.v!block|%!4=xmin|
|000030f0| 25 3a 62 6c 6f 63 6b 25 | 21 38 3d 79 6d 69 6e 25 |%:block%|!8=ymin%|
|00003100| 0d 11 80 32 62 6c 6f 63 | 6b 25 21 31 32 3d 78 6d |...2bloc|k%!12=xm|
|00003110| 69 6e 25 2b 77 69 64 74 | 68 25 3a 62 6c 6f 63 6b |in%+widt|h%:block|
|00003120| 25 21 31 36 3d 79 6d 69 | 6e 25 2b 68 65 69 67 68 |%!16=ymi|n%+heigh|
|00003130| 74 25 0d 11 8a 18 62 6c | 6f 63 6b 25 21 32 30 3d |t%....bl|ock%!20=|
|00003140| 69 63 6f 6e 66 6c 61 67 | 73 25 0d 11 94 0d e7 20 |iconflag|s%..... |
|00003150| 64 31 25 3d 30 20 8c 0d | 11 9e 18 20 20 24 28 62 |d1%=0 ..|...  $(b|
|00003160| 6c 6f 63 6b 25 2b 32 34 | 29 3d 74 65 78 74 24 0d |lock%+24|)=text$.|
|00003170| 11 a8 07 20 20 cc 0d 11 | b2 13 20 20 62 6c 6f 63 |...  ...|..  bloc|
|00003180| 6b 25 21 32 34 3d 64 31 | 25 0d 11 bc 13 20 20 62 |k%!24=d1|%....  b|
|00003190| 6c 6f 63 6b 25 21 32 38 | 3d 64 32 25 0d 11 c6 13 |lock%!28|=d2%....|
|000031a0| 20 20 62 6c 6f 63 6b 25 | 21 33 32 3d 64 33 25 0d |  block%|!32=d3%.|
|000031b0| 11 d0 05 cd 0d 11 da 2a | c8 99 20 22 57 69 6d 70 |.......*|.. "Wimp|
|000031c0| 5f 43 72 65 61 74 65 49 | 63 6f 6e 22 2c 2c 62 6c |_CreateI|con",,bl|
|000031d0| 6f 63 6b 25 20 b8 20 68 | 61 6e 64 6c 65 25 0d 11 |ock% . h|andle%..|
|000031e0| e4 0c 3d 68 61 6e 64 6c | 65 25 0d 11 ee 05 3a 0d |..=handl|e%....:.|
|000031f0| 11 f8 1b dd 20 f2 72 65 | 64 72 61 77 5f 69 63 6f |.... .re|draw_ico|
|00003200| 6e 28 77 69 25 2c 69 63 | 25 29 0d 12 02 0f 21 62 |n(wi%,ic|%)....!b|
|00003210| 6c 6f 63 6b 25 3d 77 69 | 25 0d 12 0c 10 62 6c 6f |lock%=wi|%....blo|
|00003220| 63 6b 25 21 34 3d 69 63 | 25 0d 12 16 0e 62 6c 6f |ck%!4=ic|%....blo|
|00003230| 63 6b 25 21 38 3d 30 0d | 12 20 0f 62 6c 6f 63 6b |ck%!8=0.|. .block|
|00003240| 25 21 31 32 3d 30 0d 12 | 2a 22 c8 99 20 22 57 69 |%!12=0..|*".. "Wi|
|00003250| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00003260| 2c 2c 62 6c 6f 63 6b 25 | 0d 12 34 2a 62 6c 6f 63 |,,block%|..4*bloc|
|00003270| 6b 25 21 38 3d 30 3a 62 | 6c 6f 63 6b 25 21 31 32 |k%!8=0:b|lock%!12|
|00003280| 3d 77 69 25 3a 62 6c 6f | 63 6b 25 21 31 36 3d 69 |=wi%:blo|ck%!16=i|
|00003290| 63 25 0d 12 3e 05 e1 0d | 12 48 05 3a 0d 12 52 21 |c%..>...|.H.:..R!|
|000032a0| dd 20 f2 69 63 6f 6e 5f | 62 69 74 28 62 69 74 25 |. .icon_|bit(bit%|
|000032b0| 2c 77 69 25 2c 69 63 25 | 2c 6f 6e 25 29 0d 12 5c |,wi%,ic%|,on%)..\|
|000032c0| 0f 21 62 6c 6f 63 6b 25 | 3d 77 69 25 0d 12 66 10 |.!block%|=wi%..f.|
|000032d0| 62 6c 6f 63 6b 25 21 34 | 3d 69 63 25 0d 12 70 0c |block%!4|=ic%..p.|
|000032e0| c8 8e 20 6f 6e 25 20 ca | 0d 12 7a 26 20 20 c9 20 |.. on% .|..z&  . |
|000032f0| b9 3a 62 6c 6f 63 6b 25 | 21 38 3d 30 3a 62 6c 6f |.:block%|!8=0:blo|
|00003300| 63 6b 25 21 31 32 3d 31 | 3c 3c 62 69 74 25 0d 12 |ck%!12=1|<<bit%..|
|00003310| 84 2c 20 20 c9 20 a3 3a | 62 6c 6f 63 6b 25 21 38 |.,  . .:|block%!8|
|00003320| 3d 31 3c 3c 62 69 74 25 | 3a 62 6c 6f 63 6b 25 21 |=1<<bit%|:block%!|
|00003330| 31 32 3d 31 3c 3c 62 69 | 74 25 0d 12 8e 05 cb 0d |12=1<<bi|t%......|
|00003340| 12 98 22 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 49 |..".. "W|imp_SetI|
|00003350| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |conState|",,block|
|00003360| 25 0d 12 a2 05 e1 0d 12 | ac 05 3a 0d 12 b6 16 dd |%.......|..:.....|
|00003370| 20 f2 73 65 6c 65 63 74 | 28 77 69 25 2c 69 63 25 | .select|(wi%,ic%|
|00003380| 29 0d 12 c0 0f 21 62 6c | 6f 63 6b 25 3d 77 69 25 |)....!bl|ock%=wi%|
|00003390| 0d 12 ca 10 62 6c 6f 63 | 6b 25 21 34 3d 69 63 25 |....bloc|k%!4=ic%|
|000033a0| 0d 12 d4 12 62 6c 6f 63 | 6b 25 21 38 3d 31 3c 3c |....bloc|k%!8=1<<|
|000033b0| 32 31 0d 12 de 13 62 6c | 6f 63 6b 25 21 31 32 3d |21....bl|ock%!12=|
|000033c0| 31 3c 3c 32 31 0d 12 e8 | 22 c8 99 20 22 57 69 6d |1<<21...|".. "Wim|
|000033d0| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|000033e0| 2c 62 6c 6f 63 6b 25 0d | 12 f2 05 e1 0d 12 fc 05 |,block%.|........|
|000033f0| 3a 0d 13 06 29 dd 20 f2 | 73 65 6c 65 63 74 61 62 |:...). .|selectab|
|00003400| 6c 65 28 77 69 25 2c 73 | 74 61 72 74 25 2c 66 69 |le(wi%,s|tart%,fi|
|00003410| 6e 69 73 68 25 2c 6f 6e | 25 29 0d 13 10 09 ea 20 |nish%,on|%)..... |
|00003420| 69 63 25 0d 13 1a 1a e3 | 20 69 63 25 3d 73 74 61 |ic%.....| ic%=sta|
|00003430| 72 74 25 20 b8 20 66 69 | 6e 69 73 68 25 0d 13 24 |rt% . fi|nish%..$|
|00003440| 1f 20 20 f2 69 63 6f 6e | 5f 62 69 74 28 32 32 2c |.  .icon|_bit(22,|
|00003450| 77 69 25 2c 69 63 25 2c | 6f 6e 25 29 0d 13 2e 09 |wi%,ic%,|on%)....|
|00003460| ed 20 69 63 25 0d 13 38 | 05 e1 0d 13 42 05 3a 0d |. ic%..8|....B.:.|
|00003470| 13 4c 18 dd 20 f2 64 65 | 73 65 6c 65 63 74 28 77 |.L.. .de|select(w|
|00003480| 69 25 2c 69 63 25 29 0d | 13 56 0f 21 62 6c 6f 63 |i%,ic%).|.V.!bloc|
|00003490| 6b 25 3d 77 69 25 0d 13 | 60 10 62 6c 6f 63 6b 25 |k%=wi%..|`.block%|
|000034a0| 21 34 3d 69 63 25 0d 13 | 6a 0e 62 6c 6f 63 6b 25 |!4=ic%..|j.block%|
|000034b0| 21 38 3d 30 0d 13 74 15 | 62 6c 6f 63 6b 25 21 31 |!8=0..t.|block%!1|
|000034c0| 32 3d 28 31 3c 3c 32 31 | 29 0d 13 7e 22 c8 99 20 |2=(1<<21|)..~".. |
|000034d0| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|000034e0| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 13 88 05 e1 |te",,blo|ck%.....|
|000034f0| 0d 13 92 05 3a 0d 13 9c | 16 dd 20 f2 69 6e 76 65 |....:...|.. .inve|
|00003500| 72 74 28 77 69 25 2c 69 | 63 25 29 0d 13 a6 40 e7 |rt(wi%,i|c%)...@.|
|00003510| 20 a4 73 65 6c 65 63 74 | 65 64 28 77 69 25 2c 69 | .select|ed(wi%,i|
|00003520| 63 25 29 20 8c 20 f2 64 | 65 73 65 6c 65 63 74 28 |c%) . .d|eselect(|
|00003530| 77 69 25 2c 69 63 25 29 | 20 8b 20 f2 73 65 6c 65 |wi%,ic%)| . .sele|
|00003540| 63 74 28 77 69 25 2c 69 | 63 25 29 0d 13 b0 05 e1 |ct(wi%,i|c%).....|
|00003550| 0d 13 ba 05 3a 0d 13 c4 | 18 dd 20 a4 73 65 6c 65 |....:...|.. .sele|
|00003560| 63 74 65 64 28 77 69 25 | 2c 69 63 25 29 0d 13 ce |cted(wi%|,ic%)...|
|00003570| 1c 21 62 6c 6f 63 6b 25 | 3d 77 69 25 3a 62 6c 6f |.!block%|=wi%:blo|
|00003580| 63 6b 25 21 34 3d 69 63 | 25 0d 13 d8 22 c8 99 20 |ck%!4=ic|%...".. |
|00003590| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|000035a0| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 13 e2 1e 3d |te",,blo|ck%....=|
|000035b0| 28 28 62 6c 6f 63 6b 25 | 21 32 34 29 20 80 20 28 |((block%|!24) . (|
|000035c0| 31 3c 3c 32 31 29 29 3e | 30 0d 13 ec 05 3a 0d 13 |1<<21))>|0....:..|
|000035d0| f6 16 dd 20 a4 73 68 61 | 64 65 64 28 77 69 25 2c |... .sha|ded(wi%,|
|000035e0| 69 63 25 29 0d 14 00 1c | 21 62 6c 6f 63 6b 25 3d |ic%)....|!block%=|
|000035f0| 77 69 25 3a 62 6c 6f 63 | 6b 25 21 34 3d 69 63 25 |wi%:bloc|k%!4=ic%|
|00003600| 0d 14 0a 22 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |...".. "|Wimp_Get|
|00003610| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |IconStat|e",,bloc|
|00003620| 6b 25 0d 14 14 1e 3d 28 | 28 62 6c 6f 63 6b 25 21 |k%....=(|(block%!|
|00003630| 32 34 29 20 80 20 28 31 | 3c 3c 32 32 29 29 3e 30 |24) . (1|<<22))>0|
|00003640| 0d 14 1e 05 3b 0d 14 28 | 1d dd 20 a4 73 65 6c 65 |....;..(|.. .sele|
|00003650| 63 74 65 64 5f 65 73 67 | 28 77 69 25 2c 65 73 67 |cted_esg|(wi%,esg|
|00003660| 25 29 0d 14 32 41 c8 99 | 20 22 57 69 6d 70 5f 57 |%)..2A..| "Wimp_W|
|00003670| 68 69 63 68 49 63 6f 6e | 22 2c 77 69 25 2c 62 6c |hichIcon|",wi%,bl|
|00003680| 6f 63 6b 25 2c 26 30 30 | 33 46 30 30 30 30 2c 26 |ock%,&00|3F0000,&|
|00003690| 30 30 32 30 30 30 30 30 | 2b 28 65 73 67 25 3c 3c |00200000|+(esg%<<|
|000036a0| 31 36 29 0d 14 3c 0c 3d | 21 62 6c 6f 63 6b 25 0d |16)..<.=|!block%.|
|000036b0| 14 46 05 3a 0d 14 50 24 | dd 20 a4 6e 65 78 74 5f |.F.:..P$|. .next_|
|000036c0| 77 72 69 74 65 61 62 6c | 65 28 77 69 25 2c 69 63 |writeabl|e(wi%,ic|
|000036d0| 25 2c 64 25 2c 72 25 29 | 0d 14 5a 11 ea 20 50 25 |%,d%,r%)|..Z.. P%|
|000036e0| 2c 45 25 2c 6e 65 78 74 | 25 0d 14 64 35 c8 99 20 |,E%,next|%..d5.. |
|000036f0| 22 57 69 6d 70 5f 57 68 | 69 63 68 49 63 6f 6e 22 |"Wimp_Wh|ichIcon"|
|00003700| 2c 77 69 25 2c 62 6c 6f | 63 6b 25 2c 26 30 30 43 |,wi%,blo|ck%,&00C|
|00003710| 30 45 30 30 30 2c 28 31 | 34 3c 3c 31 32 29 0d 14 |0E000,(1|4<<12)..|
|00003720| 6e 05 f5 0d 14 78 0b 20 | 20 45 25 2b 3d 34 0d 14 |n....x. | E%+=4..|
|00003730| 82 12 fd 20 62 6c 6f 63 | 6b 25 21 45 25 3d 2d 31 |... bloc|k%!E%=-1|
|00003740| 0d 14 8c 1d c8 95 20 62 | 6c 6f 63 6b 25 21 50 25 |...... b|lock%!P%|
|00003750| 3c 3e 69 63 25 20 80 20 | 50 25 3c 45 25 0d 14 96 |<>ic% . |P%<E%...|
|00003760| 0b 20 20 50 25 2b 3d 34 | 0d 14 a0 05 ce 0d 14 aa |.  P%+=4|........|
|00003770| 13 e7 20 50 25 3d 45 25 | 20 8c 20 50 25 2d 3d 34 |.. P%=E%| . P%-=4|
|00003780| 0d 14 b4 18 e7 20 72 25 | 3d 31 20 80 20 50 25 2b |..... r%|=1 . P%+|
|00003790| 34 3d 45 25 20 8c 3d b9 | 0d 14 be 0b c8 8e 20 64 |4=E% .=.|...... d|
|000037a0| 25 20 ca 0d 14 c8 0f 20 | 20 c9 20 30 3a 50 25 3d |% ..... | . 0:P%=|
|000037b0| 45 25 0d 14 d2 0f 20 20 | c9 20 32 3a 50 25 3d 2d |E%....  |. 2:P%=-|
|000037c0| 34 0d 14 dc 10 20 20 7f | 3a 50 25 2b 3d 34 2a 64 |4....  .|:P%+=4*d|
|000037d0| 25 0d 14 e6 05 cb 0d 14 | f0 0b c8 8e 20 50 25 20 |%.......|.... P% |
|000037e0| ca 0d 14 fa 18 20 20 c9 | 20 45 25 3a 6e 65 78 74 |.....  .| E%:next|
|000037f0| 25 3d 21 62 6c 6f 63 6b | 25 0d 15 04 1e 20 20 c9 |%=!block|%....  .|
|00003800| 20 2d 34 3a 6e 65 78 74 | 25 3d 62 6c 6f 63 6b 25 | -4:next|%=block%|
|00003810| 21 28 45 25 2d 34 29 0d | 15 0e 17 20 20 7f 3a 6e |!(E%-4).|...  .:n|
|00003820| 65 78 74 25 3d 62 6c 6f | 63 6b 25 21 50 25 0d 15 |ext%=blo|ck%!P%..|
|00003830| 18 05 cb 0d 15 22 19 f2 | 73 65 74 5f 63 61 72 65 |....."..|set_care|
|00003840| 74 28 77 69 25 2c 6e 65 | 78 74 25 29 0d 15 2c 06 |t(wi%,ne|xt%)..,.|
|00003850| 3d a3 0d 15 36 05 3a 0d | 15 40 14 dd 20 a4 74 65 |=...6.:.|.@.. .te|
|00003860| 78 74 28 77 69 25 2c 69 | 63 25 29 0d 15 4a 1c 21 |xt(wi%,i|c%)..J.!|
|00003870| 62 6c 6f 63 6b 25 3d 77 | 69 25 3a 62 6c 6f 63 6b |block%=w|i%:block|
|00003880| 25 21 34 3d 69 63 25 0d | 15 54 22 c8 99 20 22 57 |%!4=ic%.|.T".. "W|
|00003890| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|000038a0| 22 2c 2c 62 6c 6f 63 6b | 25 0d 15 5e 0e 3d 62 6c |",,block|%..^.=bl|
|000038b0| 6f 63 6b 25 21 32 38 0d | 15 68 05 3a 0d 15 72 1b |ock%!28.|.h.:..r.|
|000038c0| dd 20 a4 74 65 78 74 5f | 6c 65 6e 67 74 68 28 77 |. .text_|length(w|
|000038d0| 69 25 2c 69 63 25 29 0d | 15 7c 1c 21 62 6c 6f 63 |i%,ic%).|.|.!bloc|
|000038e0| 6b 25 3d 77 69 25 3a 62 | 6c 6f 63 6b 25 21 34 3d |k%=wi%:b|lock%!4=|
|000038f0| 69 63 25 0d 15 86 22 c8 | 99 20 22 57 69 6d 70 5f |ic%...".|. "Wimp_|
|00003900| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |GetIconS|tate",,b|
|00003910| 6c 6f 63 6b 25 0d 15 90 | 14 3d a9 28 24 28 62 6c |lock%...|.=.($(bl|
|00003920| 6f 63 6b 25 21 32 38 29 | 29 0d 15 9a 05 3a 0d 15 |ock%!28)|)....:..|
|00003930| a4 1d dd 20 f2 73 65 74 | 5f 63 61 72 65 74 28 68 |... .set|_caret(h|
|00003940| 61 6e 64 6c 65 25 2c 69 | 63 25 29 0d 15 ae 4b c8 |andle%,i|c%)...K.|
|00003950| 99 20 22 57 69 6d 70 5f | 53 65 74 43 61 72 65 74 |. "Wimp_|SetCaret|
|00003960| 50 6f 73 69 74 69 6f 6e | 22 2c 68 61 6e 64 6c 65 |Position|",handle|
|00003970| 25 2c 69 63 25 2c 30 2c | 30 2c 2d 31 2c a4 74 65 |%,ic%,0,|0,-1,.te|
|00003980| 78 74 5f 6c 65 6e 67 74 | 68 28 68 61 6e 64 6c 65 |xt_lengt|h(handle|
|00003990| 25 2c 69 63 25 29 0d 15 | b8 05 e1 0d 15 c2 05 3a |%,ic%)..|.......:|
|000039a0| 0d 15 cc 1d dd 20 f2 61 | 6c 74 65 72 5f 66 6c 61 |..... .a|lter_fla|
|000039b0| 67 73 28 64 66 67 25 2c | 66 66 67 25 29 0d 15 d6 |gs(dfg%,|ffg%)...|
|000039c0| 09 ea 20 69 63 25 0d 15 | e0 12 21 62 6c 6f 63 6b |.. ic%..|..!block|
|000039d0| 25 3d 6d 61 69 6e 57 25 | 0d 15 ea 19 e3 20 69 63 |%=mainW%|..... ic|
|000039e0| 25 3d 30 20 b8 20 66 69 | 65 6c 64 73 25 2a 32 2d |%=0 . fi|elds%*2-|
|000039f0| 31 0d 15 f4 31 20 20 62 | 6c 6f 63 6b 25 21 34 3d |1...1  b|lock%!4=|
|00003a00| 69 63 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |ic%:.. "|Wimp_Get|
|00003a10| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |IconStat|e",,bloc|
|00003a20| 6b 25 0d 15 fe 33 20 20 | e7 20 28 69 63 25 20 83 |k%...3  |. (ic% .|
|00003a30| 20 32 29 3d 30 20 8c 20 | 62 6c 6f 63 6b 25 21 38 | 2)=0 . |block%!8|
|00003a40| 3d 64 66 67 25 20 8b 20 | 62 6c 6f 63 6b 25 21 38 |=dfg% . |block%!8|
|00003a50| 3d 66 66 67 25 0d 16 08 | 19 20 20 62 6c 6f 63 6b |=ffg%...|.  block|
|00003a60| 25 21 31 32 3d 26 46 46 | 46 46 46 46 46 46 0d 16 |%!12=&FF|FFFFFF..|
|00003a70| 12 24 20 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |.$  .. "|Wimp_Set|
|00003a80| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |IconStat|e",,bloc|
|00003a90| 6b 25 0d 16 1c 09 ed 20 | 69 63 25 0d 16 26 05 e1 |k%..... |ic%..&..|
|00003aa0| 0d 16 30 05 3a 0d 16 3a | 20 dd 20 f2 64 63 6f 6c |..0.:..:| . .dcol|
|00003ab0| 6f 75 72 28 77 69 25 2c | 69 63 25 2c 63 6f 6c 25 |our(wi%,|ic%,col%|
|00003ac0| 2c 66 62 25 29 0d 16 44 | 3b 21 62 6c 6f 63 6b 25 |,fb%)..D|;!block%|
|00003ad0| 3d 77 69 25 3a 62 6c 6f | 63 6b 25 21 34 3d 69 63 |=wi%:blo|ck%!4=ic|
|00003ae0| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |%:.. "Wi|mp_GetIc|
|00003af0| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |onState"|,,block%|
|00003b00| 0d 16 4e 0c c8 8e 20 66 | 62 25 20 ca 0d 16 58 2f |..N... f|b% ...X/|
|00003b10| 20 20 c9 20 30 3a 62 6c | 6f 63 6b 25 21 38 3d 63 |  . 0:bl|ock%!8=c|
|00003b20| 6f 6c 25 3c 3c 32 38 3a | 62 6c 6f 63 6b 25 21 31 |ol%<<28:|block%!1|
|00003b30| 32 3d 26 46 30 30 30 30 | 30 30 30 0d 16 62 2f 20 |2=&F0000|000..b/ |
|00003b40| 20 c9 20 31 3a 62 6c 6f | 63 6b 25 21 38 3d 63 6f | . 1:blo|ck%!8=co|
|00003b50| 6c 25 3c 3c 32 34 3a 62 | 6c 6f 63 6b 25 21 31 32 |l%<<24:b|lock%!12|
|00003b60| 3d 26 30 46 30 30 30 30 | 30 30 0d 16 6c 05 cb 0d |=&0F0000|00..l...|
|00003b70| 16 76 22 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 49 |.v".. "W|imp_SetI|
|00003b80| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |conState|",,block|
|00003b90| 25 0d 16 80 05 e1 0d 16 | 8a 05 3a 0d 16 94 4b f4 |%.......|..:...K.|
|00003ba0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00003bb0| 2d 20 45 6e 64 20 6f 66 | 20 49 63 6f 6e 2d 72 65 |- End of| Icon-re|
|00003bc0| 6c 61 74 65 64 20 72 6f | 75 74 69 6e 65 73 20 2d |lated ro|utines -|
|00003bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003be0| 2d 2d 2d 2d 2d 2d 0d 16 | 9e 06 20 3a 0d 16 a8 06 |------..|.. :....|
|00003bf0| 20 3a 0d 16 b2 06 20 3a | 0d 16 bc 4c 20 f4 20 2d | :.... :|...L . -|
|00003c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c10| 2d 20 57 69 6e 64 6f 77 | 2d 72 65 6c 61 74 65 64 |- Window|-related|
|00003c20| 20 72 6f 75 74 69 6e 65 | 73 20 2d 2d 2d 2d 2d 2d | routine|s ------|
|00003c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c40| 2d 2d 2d 2d 0d 16 c6 06 | 20 3a 0d 16 d0 16 20 dd |----....| :.... .|
|00003c50| 20 f2 63 72 65 61 74 65 | 5f 77 69 6e 64 6f 77 73 | .create|_windows|
|00003c60| 0d 16 da 36 20 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |...6 .. |"Wimp_Op|
|00003c70| 65 6e 54 65 6d 70 6c 61 | 74 65 22 2c 2c 22 3c 41 |enTempla|te",,"<A|
|00003c80| 70 70 6f 69 6e 74 24 44 | 69 72 3e 2e 54 65 6d 70 |ppoint$D|ir>.Temp|
|00003c90| 6c 61 74 65 73 22 0d 16 | e4 21 20 69 6e 66 6f 57 |lates"..|.! infoW|
|00003ca0| 25 3d a4 6e 65 77 5f 77 | 69 6e 64 6f 77 28 22 69 |%=.new_w|indow("i|
|00003cb0| 6e 66 6f 22 2c 31 29 0d | 16 ee 1e 20 24 a4 74 65 |nfo",1).|... $.te|
|00003cc0| 78 74 28 69 6e 66 6f 57 | 25 2c 37 29 3d 76 65 72 |xt(infoW|%,7)=ver|
|00003cd0| 73 69 6f 6e 24 0d 16 f8 | 21 20 24 a4 74 65 78 74 |sion$...|! $.text|
|00003ce0| 28 69 6e 66 6f 57 25 2c | 38 29 3d 69 6e 74 76 65 |(infoW%,|8)=intve|
|00003cf0| 72 73 69 6f 6e 24 0d 17 | 02 3c 20 6d 61 69 6e 57 |rsion$..|.< mainW|
|00003d00| 25 3d a4 6e 65 77 5f 77 | 69 6e 64 6f 77 28 22 6d |%=.new_w|indow("m|
|00003d10| 61 69 6e 22 2c 73 70 72 | 69 74 65 73 25 29 3a 64 |ain",spr|ites%):d|
|00003d20| 61 74 61 62 61 73 65 25 | 3d 62 6c 6f 63 6b 25 21 |atabase%|=block%!|
|00003d30| 37 32 0d 17 0c 1a 20 4e | 61 6d 65 25 3d a4 74 65 |72.... N|ame%=.te|
|00003d40| 78 74 28 6d 61 69 6e 57 | 25 2c 38 29 0d 17 16 1c |xt(mainW|%,8)....|
|00003d50| 20 43 6f 75 72 73 65 25 | 3d a4 74 65 78 74 28 6d | Course%|=.text(m|
|00003d60| 61 69 6e 57 25 2c 39 29 | 0d 17 20 1c 20 54 75 74 |ainW%,9)|.. . Tut|
|00003d70| 6f 72 25 3d a4 74 65 78 | 74 28 6d 61 69 6e 57 25 |or%=.tex|t(mainW%|
|00003d80| 2c 31 30 29 0d 17 2a 37 | 20 45 76 65 6e 74 44 61 |,10)..*7| EventDa|
|00003d90| 74 65 25 3d a4 74 65 78 | 74 28 6d 61 69 6e 57 25 |te%=.tex|t(mainW%|
|00003da0| 2c 35 35 29 3a 24 45 76 | 65 6e 74 44 61 74 65 25 |,55):$Ev|entDate%|
|00003db0| 3d 45 76 65 6e 74 44 61 | 74 65 24 0d 17 34 3a 20 |=EventDa|te$..4: |
|00003dc0| 4d 61 74 68 53 63 69 4c | 6f 63 25 3d a4 74 65 78 |MathSciL|oc%=.tex|
|00003dd0| 74 28 6d 61 69 6e 57 25 | 2c 35 36 29 3a 24 4d 61 |t(mainW%|,56):$Ma|
|00003de0| 74 68 53 63 69 4c 6f 63 | 25 3d 4d 61 74 68 53 63 |thSciLoc|%=MathSc|
|00003df0| 69 4c 6f 63 24 0d 17 3e | 2e 20 48 75 6d 4c 6f 63 |iLoc$..>|. HumLoc|
|00003e00| 25 3d a4 74 65 78 74 28 | 6d 61 69 6e 57 25 2c 35 |%=.text(|mainW%,5|
|00003e10| 37 29 3a 24 48 75 6d 4c | 6f 63 25 3d 48 75 6d 4c |7):$HumL|oc%=HumL|
|00003e20| 6f 63 24 0d 17 48 0f 20 | e3 20 49 25 3d 31 20 b8 |oc$..H. |. I%=1 .|
|00003e30| 20 35 0d 17 52 25 20 53 | 75 62 6a 65 63 74 25 28 | 5..R% S|ubject%(|
|00003e40| 49 25 29 3d a4 74 65 78 | 74 28 6d 61 69 6e 57 25 |I%)=.tex|t(mainW%|
|00003e50| 2c 49 25 2b 31 30 29 0d | 17 5c 09 20 ed 20 49 25 |,I%+10).|.\. . I%|
|00003e60| 0d 17 66 1f 20 45 61 72 | 6c 69 65 73 74 25 3d a4 |..f. Ear|liest%=.|
|00003e70| 74 65 78 74 28 6d 61 69 | 6e 57 25 2c 32 31 29 0d |text(mai|nW%,21).|
|00003e80| 17 70 1d 20 4c 61 74 65 | 73 74 25 3d a4 74 65 78 |.p. Late|st%=.tex|
|00003e90| 74 28 6d 61 69 6e 57 25 | 2c 32 32 29 0d 17 7a 1d |t(mainW%|,22)..z.|
|00003ea0| 20 53 74 61 74 75 73 25 | 3d a4 74 65 78 74 28 6d | Status%|=.text(m|
|00003eb0| 61 69 6e 57 25 2c 32 33 | 29 0d 17 84 0f 20 e3 20 |ainW%,23|).... . |
|00003ec0| 49 25 3d 31 20 b8 20 37 | 0d 17 8e 23 20 53 74 61 |I%=1 . 7|...# Sta|
|00003ed0| 66 66 25 28 49 25 29 3d | a4 74 65 78 74 28 6d 61 |ff%(I%)=|.text(ma|
|00003ee0| 69 6e 57 25 2c 49 25 2b | 32 33 29 0d 17 98 22 20 |inW%,I%+|23)..." |
|00003ef0| 54 69 6d 65 25 28 49 25 | 29 3d a4 74 65 78 74 28 |Time%(I%|)=.text(|
|00003f00| 6d 61 69 6e 57 25 2c 49 | 25 2b 33 30 29 0d 17 a2 |mainW%,I|%+30)...|
|00003f10| 09 20 ed 20 49 25 0d 17 | ac 20 20 4b 65 79 73 74 |. . I%..|.  Keyst|
|00003f20| 72 69 6e 67 25 3d a4 74 | 65 78 74 28 6d 61 69 6e |ring%=.t|ext(main|
|00003f30| 57 25 2c 34 36 29 0d 17 | b6 3c 20 61 63 63 65 73 |W%,46)..|.< acces|
|00003f40| 73 57 25 3d a4 6e 65 77 | 5f 77 69 6e 64 6f 77 28 |sW%=.new|_window(|
|00003f50| 22 61 63 63 65 73 73 22 | 2c 31 29 3a 41 63 63 65 |"access"|,1):Acce|
|00003f60| 73 73 54 69 74 6c 65 25 | 3d 62 6c 6f 63 6b 25 21 |ssTitle%|=block%!|
|00003f70| 37 32 0d 17 c0 20 20 50 | 61 73 73 77 6f 72 64 25 |72...  P|assword%|
|00003f80| 3d a4 74 65 78 74 28 61 | 63 63 65 73 73 57 25 2c |=.text(a|ccessW%,|
|00003f90| 30 29 0d 17 ca 3b 20 64 | 61 74 61 64 69 63 57 25 |0)...; d|atadicW%|
|00003fa0| 3d a4 6e 65 77 5f 77 69 | 6e 64 6f 77 28 22 64 61 |=.new_wi|ndow("da|
|00003fb0| 74 61 64 69 63 22 2c 31 | 29 3a 54 61 62 54 69 74 |tadic",1|):TabTit|
|00003fc0| 6c 65 25 3d 62 6c 6f 63 | 6b 25 21 37 32 0d 17 d4 |le%=bloc|k%!72...|
|00003fd0| 2a 20 70 72 69 6e 74 57 | 25 3d a4 6e 65 77 5f 77 |* printW|%=.new_w|
|00003fe0| 69 6e 64 6f 77 28 22 70 | 72 69 6e 74 22 2c 73 70 |indow("p|rint",sp|
|00003ff0| 72 69 74 65 73 25 29 0d | 17 de 1e 20 f2 69 63 6f |rites%).|... .ico|
|00004000| 6e 5f 62 69 74 28 32 32 | 2c 70 72 69 6e 74 57 25 |n_bit(22|,printW%|
|00004010| 2c 33 2c a3 29 0d 17 e8 | 36 20 6c 69 73 74 57 25 |,3,.)...|6 listW%|
|00004020| 3d a4 6e 65 77 5f 77 69 | 6e 64 6f 77 28 22 6c 69 |=.new_wi|ndow("li|
|00004030| 73 74 22 2c 31 29 3a 4c | 69 73 74 54 69 74 6c 65 |st",1):L|istTitle|
|00004040| 25 3d 62 6c 6f 63 6b 25 | 21 37 32 0d 17 f2 3b 20 |%=block%|!72...; |
|00004050| 73 61 76 65 57 25 3d a4 | 6e 65 77 5f 77 69 6e 64 |saveW%=.|new_wind|
|00004060| 6f 77 28 22 73 61 76 65 | 22 2c 31 29 3a 53 61 76 |ow("save|",1):Sav|
|00004070| 65 4c 69 73 74 25 3d a4 | 74 65 78 74 28 73 61 76 |eList%=.|text(sav|
|00004080| 65 57 25 2c 30 29 0d 17 | fc 25 20 70 72 6f 6d 70 |eW%,0)..|.% promp|
|00004090| 74 57 25 3d a4 6e 65 77 | 5f 77 69 6e 64 6f 77 28 |tW%=.new|_window(|
|000040a0| 22 70 72 6f 6d 70 74 22 | 2c 31 29 0d 18 06 3f 20 |"prompt"|,1)...? |
|000040b0| 6e 6f 74 69 66 79 57 25 | 3d a4 6e 65 77 5f 77 69 |notifyW%|=.new_wi|
|000040c0| 6e 64 6f 77 28 22 6e 6f | 74 69 66 79 22 2c 31 29 |ndow("no|tify",1)|
|000040d0| 3a 4e 6f 74 69 66 79 25 | 3d a4 74 65 78 74 28 6e |:Notify%|=.text(n|
|000040e0| 6f 74 69 66 79 57 25 2c | 30 29 0d 18 10 3c 20 6d |otifyW%,|0)...< m|
|000040f0| 61 6e 75 61 6c 57 25 3d | a4 6e 65 77 5f 77 69 6e |anualW%=|.new_win|
|00004100| 64 6f 77 28 22 6d 61 6e | 75 61 6c 22 2c 31 29 3a |dow("man|ual",1):|
|00004110| 4d 61 6e 75 61 6c 54 69 | 74 6c 65 25 3d 62 6c 6f |ManualTi|tle%=blo|
|00004120| 63 6b 25 21 37 32 0d 18 | 1a 27 20 68 65 61 64 69 |ck%!72..|.' headi|
|00004130| 6e 67 57 25 3d a4 6e 65 | 77 5f 77 69 6e 64 6f 77 |ngW%=.ne|w_window|
|00004140| 28 22 68 65 61 64 69 6e | 67 22 2c 31 29 0d 18 24 |("headin|g",1)..$|
|00004150| 27 20 63 6f 6e 74 72 6f | 6c 57 25 3d a4 6e 65 77 |' contro|lW%=.new|
|00004160| 5f 77 69 6e 64 6f 77 28 | 22 63 6f 6e 74 72 6f 6c |_window(|"control|
|00004170| 22 2c 31 29 0d 18 2e 29 | 20 72 65 73 74 72 69 63 |",1)...)| restric|
|00004180| 74 57 25 3d a4 6e 65 77 | 5f 77 69 6e 64 6f 77 28 |tW%=.new|_window(|
|00004190| 22 72 65 73 74 72 69 63 | 74 22 2c 31 29 0d 18 38 |"restric|t",1)..8|
|000041a0| 22 20 73 74 61 74 57 25 | 3d a4 6e 65 77 5f 77 69 |" statW%|=.new_wi|
|000041b0| 6e 64 6f 77 28 22 73 74 | 61 74 73 22 2c 31 29 0d |ndow("st|ats",1).|
|000041c0| 18 42 1d 20 4d 65 73 73 | 61 67 65 25 3d a4 74 65 |.B. Mess|age%=.te|
|000041d0| 78 74 28 73 74 61 74 57 | 25 2c 30 29 0d 18 4c 1b |xt(statW|%,0)..L.|
|000041e0| 20 54 6f 74 61 6c 25 3d | a4 74 65 78 74 28 73 74 | Total%=|.text(st|
|000041f0| 61 74 57 25 2c 31 29 0d | 18 56 1e 20 53 75 62 74 |atW%,1).|.V. Subt|
|00004200| 6f 74 61 6c 25 3d a4 74 | 65 78 74 28 73 74 61 74 |otal%=.t|ext(stat|
|00004210| 57 25 2c 32 29 0d 18 60 | 1e 20 50 72 6f 62 6c 65 |W%,2)..`|. Proble|
|00004220| 6d 73 25 3d a4 74 65 78 | 74 28 73 74 61 74 57 25 |ms%=.tex|t(statW%|
|00004230| 2c 33 29 0d 18 6a 1c 20 | c8 99 20 22 57 69 6d 70 |,3)..j. |.. "Wimp|
|00004240| 5f 43 6c 6f 73 65 54 65 | 6d 70 6c 61 74 65 22 0d |_CloseTe|mplate".|
|00004250| 18 74 06 20 e1 0d 18 7e | 06 20 3a 0d 18 88 10 dd |.t. ...~|. :.....|
|00004260| 20 f2 72 65 70 6c 69 63 | 61 74 65 0d 18 92 1d ea | .replic|ate.....|
|00004270| 20 49 25 2c 4a 25 2c 72 | 61 6e 67 65 25 2c 74 69 | I%,J%,r|ange%,ti|
|00004280| 6d 65 24 2c 65 73 67 25 | 0d 18 9c 28 74 69 6d 65 |me$,esg%|...(time|
|00004290| 24 3d a4 73 74 72 69 6e | 67 28 65 76 65 6e 69 6e |$=.strin|g(evenin|
|000042a0| 67 73 74 61 72 74 25 2c | 22 54 69 6d 65 73 22 29 |gstart%,|"Times")|
|000042b0| 0d 18 a6 0e e3 20 4a 25 | 3d 30 20 b8 20 36 0d 18 |..... J%|=0 . 6..|
|000042c0| b0 1f 20 20 24 a4 74 65 | 78 74 28 6d 61 6e 75 61 |..  $.te|xt(manua|
|000042d0| 6c 57 25 2c 4a 25 29 3d | 74 69 6d 65 24 0d 18 ba |lW%,J%)=|time$...|
|000042e0| 08 ed 20 4a 25 0d 18 c4 | 24 72 61 6e 67 65 25 3d |.. J%...|$range%=|
|000042f0| 65 76 65 6e 69 6e 67 65 | 6e 64 25 2d 65 76 65 6e |eveninge|nd%-even|
|00004300| 69 6e 67 73 74 61 72 74 | 25 0d 18 ce 13 e3 20 49 |ingstart|%..... I|
|00004310| 25 3d 30 20 b8 20 72 61 | 6e 67 65 25 0d 18 d8 27 |%=0 . ra|nge%...'|
|00004320| e7 20 65 73 67 25 3c 33 | 30 20 8c 20 65 73 67 25 |. esg%<3|0 . esg%|
|00004330| 3d 28 65 73 67 25 2b 31 | 29 20 8b 20 65 73 67 25 |=(esg%+1|) . esg%|
|00004340| 3d 2d 31 0d 18 e2 2d 74 | 69 6d 65 24 3d a4 73 74 |=-1...-t|ime$=.st|
|00004350| 72 69 6e 67 28 49 25 2b | 65 76 65 6e 69 6e 67 73 |ring(I%+|evenings|
|00004360| 74 61 72 74 25 2b 31 2c | 22 54 69 6d 65 73 22 29 |tart%+1,|"Times")|
|00004370| 0d 18 ec 10 20 20 e3 20 | 4a 25 3d 30 20 b8 20 36 |....  . |J%=0 . 6|
|00004380| 0d 18 f6 11 20 20 20 20 | 24 62 75 66 66 25 3d 22 |....    |$buff%="|
|00004390| 22 0d 19 00 43 20 20 20 | 20 21 62 6c 6f 63 6b 25 |"...C   | !block%|
|000043a0| 3d 6d 61 6e 75 61 6c 57 | 25 3a 62 6c 6f 63 6b 25 |=manualW|%:block%|
|000043b0| 21 34 3d 4a 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |!4=J%:..| "Wimp_G|
|000043c0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|000043d0| 6f 63 6b 25 0d 19 0a 20 | 20 20 20 20 62 6c 6f 63 |ock%... |    bloc|
|000043e0| 6b 25 3f 32 36 3d 62 6c | 6f 63 6b 25 3f 32 36 2b |k%?26=bl|ock%?26+|
|000043f0| 65 73 67 25 0d 19 14 77 | 20 20 20 20 68 61 6e 64 |esg%...w|    hand|
|00004400| 6c 65 25 3d a4 63 72 65 | 61 74 65 5f 69 63 6f 6e |le%=.cre|ate_icon|
|00004410| 28 6d 61 6e 75 61 6c 57 | 25 2c 62 6c 6f 63 6b 25 |(manualW|%,block%|
|00004420| 21 38 2c 2d 49 25 2a 34 | 38 2d 31 35 32 2c 62 6c |!8,-I%*4|8-152,bl|
|00004430| 6f 63 6b 25 21 31 36 2d | 62 6c 6f 63 6b 25 21 38 |ock%!16-|block%!8|
|00004440| 2c 34 34 2c 62 6c 6f 63 | 6b 25 21 32 34 2c 22 22 |,44,bloc|k%!24,""|
|00004450| 2c 62 75 66 66 25 2c 62 | 6c 6f 63 6b 25 21 33 32 |,buff%,b|lock%!32|
|00004460| 2c 62 6c 6f 63 6b 25 21 | 33 36 29 0d 19 1e 26 20 |,block%!|36)...& |
|00004470| 20 20 20 24 a4 74 65 78 | 74 28 6d 61 6e 75 61 6c |   $.tex|t(manual|
|00004480| 57 25 2c 68 61 6e 64 6c | 65 25 29 3d 74 69 6d 65 |W%,handl|e%)=time|
|00004490| 24 0d 19 28 18 20 20 20 | 20 62 75 66 66 25 2b 3d |$..(.   | buff%+=|
|000044a0| 62 6c 6f 63 6b 25 21 33 | 36 0d 19 32 0a 20 20 ed |block%!3|6..2.  .|
|000044b0| 20 4a 25 0d 19 3c 08 ed | 20 49 25 0d 19 46 3e 21 | J%..<..| I%..F>!|
|000044c0| 62 6c 6f 63 6b 25 3d 30 | 3a 62 6c 6f 63 6b 25 21 |block%=0|:block%!|
|000044d0| 34 3d 2d 72 61 6e 67 65 | 25 2a 34 38 2d 31 38 34 |4=-range|%*48-184|
|000044e0| 3a 62 6c 6f 63 6b 25 21 | 38 3d 37 33 32 3a 62 6c |:block%!|8=732:bl|
|000044f0| 6f 63 6b 25 21 31 32 3d | 30 0d 19 50 27 c8 99 20 |ock%!12=|0..P'.. |
|00004500| 22 57 69 6d 70 5f 53 65 | 74 45 78 74 65 6e 74 22 |"Wimp_Se|tExtent"|
|00004510| 2c 6d 61 6e 75 61 6c 57 | 25 2c 62 6c 6f 63 6b 25 |,manualW|%,block%|
|00004520| 0d 19 5a 05 e1 0d 19 64 | 05 3a 0d 19 6e 1d 20 dd |..Z....d|.:..n. .|
|00004530| 20 a4 6e 65 77 5f 77 69 | 6e 64 6f 77 28 6e 61 6d | .new_wi|ndow(nam|
|00004540| 65 24 2c 73 70 25 29 0d | 19 78 0e 20 ea 20 68 61 |e$,sp%).|.x. . ha|
|00004550| 6e 64 6c 65 25 0d 19 82 | 47 20 c8 99 20 22 57 69 |ndle%...|G .. "Wi|
|00004560| 6d 70 5f 4c 6f 61 64 54 | 65 6d 70 6c 61 74 65 22 |mp_LoadT|emplate"|
|00004570| 2c 2c 62 6c 6f 63 6b 25 | 2c 62 75 66 66 25 2c 65 |,,block%|,buff%,e|
|00004580| 6e 64 62 75 66 66 25 2c | 2d 31 2c 6e 61 6d 65 24 |ndbuff%,|-1,name$|
|00004590| 2c 30 20 b8 20 2c 2c 62 | 75 66 66 25 0d 19 8c 12 |,0 . ,,b|uff%....|
|000045a0| 20 62 6c 6f 63 6b 25 21 | 36 34 3d 73 70 25 0d 19 | block%!|64=sp%..|
|000045b0| 96 2d 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.- .. "W|imp_Crea|
|000045c0| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |teWindow|",,block|
|000045d0| 25 20 b8 20 68 61 6e 64 | 6c 65 25 0d 19 a0 0d 20 |% . hand|le%.... |
|000045e0| 3d 68 61 6e 64 6c 65 25 | 0d 19 aa 06 20 3a 0d 19 |=handle%|.... :..|
|000045f0| b4 14 20 dd 20 f2 73 68 | 6f 77 5f 77 69 6e 64 6f |.. . .sh|ow_windo|
|00004600| 77 73 0d 19 be 19 20 f2 | 6f 70 65 6e 5f 77 69 6e |ws.... .|open_win|
|00004610| 64 6f 77 28 6d 61 69 6e | 57 25 29 0d 19 c8 06 20 |dow(main|W%).... |
|00004620| e1 0d 19 d2 06 20 3a 0d | 19 dc 1d 20 dd 20 f2 6f |..... :.|... . .o|
|00004630| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 77 68 61 6e 64 |pen_wind|ow(whand|
|00004640| 6c 65 25 29 0d 19 e6 16 | 20 62 6c 6f 63 6b 25 21 |le%)....| block%!|
|00004650| 30 3d 77 68 61 6e 64 6c | 65 25 0d 19 f0 25 20 c8 |0=whandl|e%...% .|
|00004660| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00004670| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |wState",|,block%.|
|00004680| 19 fa 11 20 62 6c 6f 63 | 6b 25 21 32 38 3d 2d 31 |... bloc|k%!28=-1|
|00004690| 0d 1a 04 21 20 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |...! .. |"Wimp_Op|
|000046a0| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |enWindow|",,block|
|000046b0| 25 0d 1a 0e 06 20 e1 0d | 1a 18 06 20 3a 0d 1a 22 |%.... ..|... :.."|
|000046c0| 15 20 dd 20 f2 70 65 72 | 66 6f 72 6d 5f 63 6c 6f |. . .per|form_clo|
|000046d0| 73 65 0d 1a 2c 1b 20 f2 | 63 6c 6f 73 65 5f 77 69 |se..,. .|close_wi|
|000046e0| 6e 64 6f 77 28 21 62 6c | 6f 63 6b 25 29 0d 1a 36 |ndow(!bl|ock%)..6|
|000046f0| 11 20 c8 8e 20 21 62 6c | 6f 63 6b 25 20 ca 0d 1a |. .. !bl|ock% ...|
|00004700| 40 1d 20 20 20 c9 20 6d | 61 69 6e 57 25 3a f2 68 |@.   . m|ainW%:.h|
|00004710| 69 64 65 5f 77 69 6e 64 | 6f 77 73 0d 1a 4a 12 20 |ide_wind|ows..J. |
|00004720| 20 20 c9 20 6d 61 6e 75 | 61 6c 57 25 3a 0d 1a 54 |  . manu|alW%:..T|
|00004730| 21 20 20 20 20 20 f2 63 | 6c 6f 73 65 5f 77 69 6e |!     .c|lose_win|
|00004740| 64 6f 77 28 68 65 61 64 | 69 6e 67 57 25 29 0d 1a |dow(head|ingW%)..|
|00004750| 5e 21 20 20 20 20 20 f2 | 63 6c 6f 73 65 5f 77 69 |^!     .|close_wi|
|00004760| 6e 64 6f 77 28 63 6f 6e | 74 72 6f 6c 57 25 29 0d |ndow(con|trolW%).|
|00004770| 1a 68 1d 20 20 20 20 20 | f2 64 65 73 65 6c 65 63 |.h.     |.deselec|
|00004780| 74 28 6d 61 69 6e 57 25 | 2c 35 31 29 0d 1a 72 06 |t(mainW%|,51)..r.|
|00004790| 20 cb 0d 1a 7c 06 20 e1 | 0d 1a 86 06 20 3a 0d 1a | ...|. .|.... :..|
|000047a0| 90 14 20 dd 20 f2 68 69 | 64 65 5f 77 69 6e 64 6f |.. . .hi|de_windo|
|000047b0| 77 73 0d 1a 9a 1a 20 f2 | 63 6c 6f 73 65 5f 77 69 |ws.... .|close_wi|
|000047c0| 6e 64 6f 77 28 6d 61 69 | 6e 57 25 29 0d 1a a4 1d |ndow(mai|nW%)....|
|000047d0| 20 f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 64 | .close_|window(d|
|000047e0| 61 74 61 64 69 63 57 25 | 29 0d 1a ae 1a 20 f2 63 |atadicW%|).... .c|
|000047f0| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 6c 69 73 74 |lose_win|dow(list|
|00004800| 57 25 29 0d 1a b8 1c 20 | f2 63 6c 6f 73 65 5f 77 |W%).... |.close_w|
|00004810| 69 6e 64 6f 77 28 6e 6f | 74 69 66 79 57 25 29 0d |indow(no|tifyW%).|
|00004820| 1a c2 1c 20 f2 63 6c 6f | 73 65 5f 77 69 6e 64 6f |... .clo|se_windo|
|00004830| 77 28 6d 61 6e 75 61 6c | 57 25 29 0d 1a cc 1d 20 |w(manual|W%).... |
|00004840| f2 63 6c 6f 73 65 5f 77 | 69 6e 64 6f 77 28 68 65 |.close_w|indow(he|
|00004850| 61 64 69 6e 67 57 25 29 | 0d 1a d6 1d 20 f2 63 6c |adingW%)|.... .cl|
|00004860| 6f 73 65 5f 77 69 6e 64 | 6f 77 28 63 6f 6e 74 72 |ose_wind|ow(contr|
|00004870| 6f 6c 57 25 29 0d 1a e0 | 1a 20 f2 63 6c 6f 73 65 |olW%)...|. .close|
|00004880| 5f 77 69 6e 64 6f 77 28 | 73 74 61 74 57 25 29 0d |_window(|statW%).|
|00004890| 1a ea 19 20 f2 64 65 73 | 65 6c 65 63 74 28 6d 61 |... .des|elect(ma|
|000048a0| 69 6e 57 25 2c 35 31 29 | 0d 1a f4 06 20 e1 0d 1a |inW%,51)|.... ...|
|000048b0| fe 06 20 3a 0d 1b 08 1e | 20 dd 20 f2 63 6c 6f 73 |.. :....| . .clos|
|000048c0| 65 5f 77 69 6e 64 6f 77 | 28 77 68 61 6e 64 6c 65 |e_window|(whandle|
|000048d0| 25 29 0d 1b 12 15 20 21 | 62 6c 6f 63 6b 25 3d 77 |%).... !|block%=w|
|000048e0| 68 61 6e 64 6c 65 25 0d | 1b 1c 22 20 c8 99 20 22 |handle%.|.." .. "|
|000048f0| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|00004900| 22 2c 2c 62 6c 6f 63 6b | 25 0d 1b 26 06 20 e1 0d |",,block|%..&. ..|
|00004910| 1b 30 06 20 3a 0d 1b 3a | 17 20 dd 20 f2 72 65 64 |.0. :..:|. . .red|
|00004920| 72 61 77 28 68 61 6e 64 | 6c 65 25 29 0d 1b 44 14 |raw(hand|le%)..D.|
|00004930| 20 21 62 6c 6f 63 6b 25 | 3d 68 61 6e 64 6c 65 25 | !block%|=handle%|
|00004940| 0d 1b 4e 2b 20 c8 99 20 | 22 57 69 6d 70 5f 52 65 |..N+ .. |"Wimp_Re|
|00004950| 64 72 61 77 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |drawWind|ow",,blo|
|00004960| 63 6b 25 20 b8 20 6d 6f | 72 65 25 0d 1b 58 20 20 |ck% . mo|re%..X  |
|00004970| f2 67 65 74 5f 6f 72 69 | 67 69 6e 28 62 6c 6f 63 |.get_ori|gin(bloc|
|00004980| 6b 25 2c 78 30 25 2c 79 | 30 25 29 0d 1b 62 0d 20 |k%,x0%,y|0%)..b. |
|00004990| c8 95 20 6d 6f 72 65 25 | 0d 1b 6c 15 20 20 20 f2 |.. more%|..l.   .|
|000049a0| 64 72 61 77 28 78 30 25 | 2c 79 30 25 29 0d 1b 76 |draw(x0%|,y0%)..v|
|000049b0| 43 20 20 20 e7 20 68 61 | 6e 64 6c 65 25 3c 3e 64 |C   . ha|ndle%<>d|
|000049c0| 61 74 61 64 69 63 57 25 | 20 8c 20 c8 99 20 22 49 |atadicW%| . .. "I|
|000049d0| 6e 74 65 72 66 61 63 65 | 5f 52 65 6e 64 65 72 33 |nterface|_Render3|
|000049e0| 64 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |dWindow"|,,block%|
|000049f0| 0d 1b 80 2d 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |...-   .|. "Wimp_|
|00004a00| 47 65 74 52 65 63 74 61 | 6e 67 6c 65 22 2c 2c 62 |GetRecta|ngle",,b|
|00004a10| 6c 6f 63 6b 25 20 b8 20 | 6d 6f 72 65 25 0d 1b 8a |lock% . |more%...|
|00004a20| 06 20 ce 0d 1b 94 06 20 | e1 0d 1b 9e 06 20 3a 0d |. ..... |..... :.|
|00004a30| 1b a8 26 20 dd 20 f2 67 | 65 74 5f 6f 72 69 67 69 |..& . .g|et_origi|
|00004a40| 6e 28 62 6c 6f 63 6b 25 | 2c f8 20 78 30 25 2c f8 |n(block%|,. x0%,.|
|00004a50| 20 79 30 25 29 0d 1b b2 | 1b 20 78 30 25 3d 62 6c | y0%)...|. x0%=bl|
|00004a60| 6f 63 6b 25 21 34 2d 62 | 6c 6f 63 6b 25 21 32 30 |ock%!4-b|lock%!20|
|00004a70| 0d 1b bc 1c 20 79 30 25 | 3d 62 6c 6f 63 6b 25 21 |.... y0%|=block%!|
|00004a80| 31 36 2d 62 6c 6f 63 6b | 25 21 32 34 0d 1b c6 06 |16-block|%!24....|
|00004a90| 20 e1 0d 1b d0 06 20 3a | 0d 1b da 15 20 dd 20 f2 | ..... :|.... . .|
|00004aa0| 64 72 61 77 28 78 30 25 | 2c 79 30 25 29 0d 1b e4 |draw(x0%|,y0%)...|
|00004ab0| 21 20 ea 20 54 65 78 74 | 50 74 72 25 2c 79 31 25 |! . Text|Ptr%,y1%|
|00004ac0| 2c 79 32 25 2c 49 25 2c | 63 68 61 72 73 25 0d 1b |,y2%,I%,|chars%..|
|00004ad0| ee 11 20 c8 8e 20 68 61 | 6e 64 6c 65 25 20 ca 0d |.. .. ha|ndle% ..|
|00004ae0| 1b f8 0f 20 20 20 c9 20 | 6c 69 73 74 57 25 0d 1c |...   . |listW%..|
|00004af0| 02 1b 20 20 20 79 31 25 | 3d 2d 28 62 6c 6f 63 6b |..   y1%|=-(block|
|00004b00| 25 21 34 30 2d 79 30 25 | 29 0d 1c 0c 1b 20 20 20 |%!40-y0%|)....   |
|00004b10| 79 32 25 3d 2d 28 62 6c | 6f 63 6b 25 21 33 32 2d |y2%=-(bl|ock%!32-|
|00004b20| 79 30 25 29 0d 1c 16 15 | 20 20 20 79 31 25 3d 79 |y0%)....|   y1%=y|
|00004b30| 31 25 20 81 20 33 32 2b | 31 0d 1c 20 15 20 20 20 |1% . 32+|1.. .   |
|00004b40| 79 32 25 3d 79 32 25 20 | 81 20 33 32 2b 31 0d 1c |y2%=y2% |. 32+1..|
|00004b50| 2a 2f 20 20 20 54 65 78 | 74 50 74 72 25 3d 28 21 |*/   Tex|tPtr%=(!|
|00004b60| 74 65 78 74 61 6e 63 68 | 6f 72 25 29 2b 28 79 31 |textanch|or%)+(y1|
|00004b70| 25 2d 31 29 2a 4c 65 6e | 4c 69 6e 65 25 0d 1c 34 |%-1)*Len|Line%..4|
|00004b80| 20 20 20 20 e7 20 79 32 | 25 3e 43 6f 75 6e 74 25 |    . y2|%>Count%|
|00004b90| 20 8c 20 79 32 25 3d 43 | 6f 75 6e 74 25 0d 1c 3e | . y2%=C|ount%..>|
|00004ba0| 15 20 20 20 e3 20 49 25 | 3d 79 31 25 20 b8 20 79 |.   . I%|=y1% . y|
|00004bb0| 32 25 0d 1c 48 17 20 20 | 20 20 20 f2 64 72 61 77 |2%..H.  |   .draw|
|00004bc0| 5f 6c 69 6e 65 28 49 25 | 29 0d 1c 52 1b 20 20 20 |_line(I%|)..R.   |
|00004bd0| 20 20 54 65 78 74 50 74 | 72 25 2b 3d 4c 65 6e 4c |  TextPt|r%+=LenL|
|00004be0| 69 6e 65 25 0d 1c 5c 0b | 20 20 20 ed 20 49 25 0d |ine%..\.|   . I%.|
|00004bf0| 1c 66 06 20 cb 0d 1c 70 | 06 20 e1 0d 1c 7a 06 20 |.f. ...p|. ...z. |
|00004c00| 3a 0d 1c 84 18 20 dd 20 | f2 64 72 61 77 5f 6c 69 |:.... . |.draw_li|
|00004c10| 6e 65 28 4c 69 6e 65 25 | 29 0d 1c 8e 18 20 e7 20 |ne(Line%|).... . |
|00004c20| 54 65 78 74 50 74 72 25 | 3f 31 3d 31 32 20 8c 20 |TextPtr%|?1=12 . |
|00004c30| e1 0d 1c 98 1d 20 ec 20 | 78 30 25 2c 79 30 25 2d |..... . |x0%,y0%-|
|00004c40| 28 4c 69 6e 65 25 2d 31 | 29 2a 33 32 2d 34 0d 1c |(Line%-1|)*32-4..|
|00004c50| a2 25 20 c8 99 20 22 4f | 53 5f 57 72 69 74 65 4e |.% .. "O|S_WriteN|
|00004c60| 22 2c 54 65 78 74 50 74 | 72 25 2c 4c 65 6e 4c 69 |",TextPt|r%,LenLi|
|00004c70| 6e 65 25 0d 1c ac 06 20 | e1 0d 1c b6 06 20 3a 0d |ne%.... |..... :.|
|00004c80| 1c c0 14 20 dd 20 f2 75 | 70 64 61 74 65 5f 70 61 |... . .u|pdate_pa|
|00004c90| 6e 65 73 0d 1c ca 09 20 | ea 20 49 25 0d 1c d4 39 |nes.... |. I%...9|
|00004ca0| 20 21 62 6c 6f 63 6b 32 | 25 3d 68 65 61 64 69 6e | !block2|%=headin|
|00004cb0| 67 57 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |gW%:.. "|Wimp_Get|
|00004cc0| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 6c |WindowSt|ate",,bl|
|00004cd0| 6f 63 6b 32 25 0d 1c de | 39 20 21 62 6c 6f 63 6b |ock2%...|9 !block|
|00004ce0| 33 25 3d 63 6f 6e 74 72 | 6f 6c 57 25 3a c8 99 20 |3%=contr|olW%:.. |
|00004cf0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00004d00| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 33 25 0d 1c |tate",,b|lock3%..|
|00004d10| e8 14 20 e3 20 49 25 3d | 34 20 b8 20 32 30 20 88 |.. . I%=|4 . 20 .|
|00004d20| 20 34 0d 1c f2 30 20 20 | 20 62 6c 6f 63 6b 32 25 | 4...0  | block2%|
|00004d30| 21 49 25 3d 62 6c 6f 63 | 6b 25 21 49 25 3a 62 6c |!I%=bloc|k%!I%:bl|
|00004d40| 6f 63 6b 33 25 21 49 25 | 3d 62 6c 6f 63 6b 25 21 |ock3%!I%|=block%!|
|00004d50| 49 25 0d 1c fc 09 20 ed | 20 49 25 0d 1d 06 30 20 |I%.... .| I%...0 |
|00004d60| 62 6c 6f 63 6b 32 25 21 | 38 3d 62 6c 6f 63 6b 25 |block2%!|8=block%|
|00004d70| 21 31 36 2d 37 32 3a 62 | 6c 6f 63 6b 32 25 21 32 |!16-72:b|lock2%!2|
|00004d80| 38 3d 62 6c 6f 63 6b 25 | 21 32 38 0d 1d 10 30 20 |8=block%|!28...0 |
|00004d90| 62 6c 6f 63 6b 33 25 21 | 31 36 3d 62 6c 6f 63 6b |block3%!|16=block|
|00004da0| 25 21 38 2b 37 32 3a 62 | 6c 6f 63 6b 33 25 21 32 |%!8+72:b|lock3%!2|
|00004db0| 38 3d 68 65 61 64 69 6e | 67 57 25 0d 1d 1a 18 20 |8=headin|gW%.... |
|00004dc0| 62 6c 6f 63 6b 25 21 32 | 38 3d 63 6f 6e 74 72 6f |block%!2|8=contro|
|00004dd0| 6c 57 25 0d 1d 24 22 20 | c8 99 20 22 57 69 6d 70 |lW%..$" |.. "Wimp|
|00004de0| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 6c |_OpenWin|dow",,bl|
|00004df0| 6f 63 6b 32 25 0d 1d 2e | 22 20 c8 99 20 22 57 69 |ock2%...|" .. "Wi|
|00004e00| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00004e10| 62 6c 6f 63 6b 33 25 0d | 1d 38 21 20 c8 99 20 22 |block3%.|.8! .. "|
|00004e20| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00004e30| 2c 2c 62 6c 6f 63 6b 25 | 0d 1d 42 1e 20 e7 20 75 |,,block%|..B. . u|
|00004e40| 70 5f 70 65 6e 64 25 20 | 8c 20 75 70 5f 70 65 6e |p_pend% |. up_pen|
|00004e50| 64 25 3d a3 3a e1 0d 1d | 4c 25 20 c8 99 20 22 57 |d%=.:...|L% .. "W|
|00004e60| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00004e70| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 1d 56 37 20 |te",,blo|ck%..V7 |
|00004e80| e7 20 28 62 6c 6f 63 6b | 25 21 33 32 20 80 20 28 |. (block|%!32 . (|
|00004e90| 31 3c 3c 31 38 29 29 20 | 8c 20 75 70 5f 70 65 6e |1<<18)) |. up_pen|
|00004ea0| 64 25 3d b9 3a f2 75 70 | 64 61 74 65 5f 70 61 6e |d%=.:.up|date_pan|
|00004eb0| 65 73 0d 1d 60 06 20 e1 | 0d 1d 6a 06 20 3a 0d 1d |es..`. .|..j. :..|
|00004ec0| 74 4d 20 f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |tM . ---|--------|
|00004ed0| 2d 2d 2d 2d 2d 2d 2d 20 | 45 6e 64 20 6f 66 20 57 |------- |End of W|
|00004ee0| 69 6e 64 6f 77 2d 72 65 | 6c 61 74 65 64 20 72 6f |indow-re|lated ro|
|00004ef0| 75 74 69 6e 65 73 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |utines--|--------|
|00004f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 1d 7e 06 20 |--------|---..~. |
|00004f10| 3a 0d 1d 88 06 20 3a 0d | 1d 92 06 20 3a 0d 1d 9c |:.... :.|... :...|
|00004f20| 4c 20 f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |L . ----|--------|
|00004f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 4d 6f 75 73 65 2d |--------|- Mouse-|
|00004f40| 63 6c 69 63 6b 20 70 72 | 6f 63 65 73 73 69 6e 67 |click pr|ocessing|
|00004f50| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00004f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 1d a6 06 20 3a 0d |--------|-.... :.|
|00004f70| 1d b0 1f 20 dd 20 f2 6d | 6f 75 73 65 28 78 25 2c |... . .m|ouse(x%,|
|00004f80| 79 25 2c 62 25 2c 77 69 | 25 2c 69 63 25 29 0d 1d |y%,b%,wi|%,ic%)..|
|00004f90| ba 13 20 e7 20 28 62 25 | 20 80 20 32 29 3d a3 20 |.. . (b%| . 2)=. |
|00004fa0| 8c 0d 1d c4 45 20 20 20 | 21 62 6c 6f 63 6b 25 3d |....E   |!block%=|
|00004fb0| 78 25 3a 62 6c 6f 63 6b | 25 21 34 3d 79 25 3a 62 |x%:block|%!4=y%:b|
|00004fc0| 6c 6f 63 6b 25 21 38 3d | 62 25 3a 62 6c 6f 63 6b |lock%!8=|b%:block|
|00004fd0| 25 21 31 32 3d 77 69 25 | 3a 62 6c 6f 63 6b 25 21 |%!12=wi%|:block%!|
|00004fe0| 31 36 3d 69 63 25 0d 1d | ce 28 20 20 20 c8 99 20 |16=ic%..|.(   .. |
|00004ff0| 22 49 6e 74 65 72 66 61 | 63 65 5f 53 6c 61 62 42 |"Interfa|ce_SlabB|
|00005000| 75 74 74 6f 6e 22 2c 2c | 62 6c 6f 63 6b 25 0d 1d |utton",,|block%..|
|00005010| d8 06 20 cd 0d 1d e2 0d | 20 c8 8e 20 77 69 25 20 |.. .....| .. wi% |
|00005020| ca 0d 1d ec 1a 20 20 20 | c9 20 2d 32 3a f2 69 63 |.....   |. -2:.ic|
|00005030| 6f 6e 62 61 72 5f 63 6c | 69 63 6b 0d 1d f6 08 20 |onbar_cl|ick.... |
|00005040| 20 20 cd 0d 1e 00 24 20 | 20 20 c9 20 6d 61 69 6e |  ....$ |  . main|
|00005050| 57 25 3a f2 6d 61 69 6e | 5f 63 6c 69 63 6b 28 77 |W%:.main|_click(w|
|00005060| 69 25 2c 69 63 25 29 0d | 1e 0a 23 20 20 20 c9 20 |i%,ic%).|..#   . |
|00005070| 61 63 63 65 73 73 57 25 | 3a 61 63 63 65 73 73 62 |accessW%|:accessb|
|00005080| 75 74 74 6f 6e 25 3d 69 | 63 25 0d 1e 14 26 20 20 |utton%=i|c%...&  |
|00005090| 20 c9 20 70 72 69 6e 74 | 57 25 3a f2 70 72 69 6e | . print|W%:.prin|
|000050a0| 74 5f 63 6c 69 63 6b 28 | 77 69 25 2c 69 63 25 29 |t_click(|wi%,ic%)|
|000050b0| 0d 1e 1e 1b 20 20 20 c9 | 20 6c 69 73 74 57 25 3a |....   .| listW%:|
|000050c0| f2 6c 69 73 74 5f 63 6c | 69 63 6b 0d 1e 28 24 20 |.list_cl|ick..($ |
|000050d0| 20 20 c9 20 73 61 76 65 | 57 25 3a f2 73 61 76 65 |  . save|W%:.save|
|000050e0| 5f 63 6c 69 63 6b 28 77 | 69 25 2c 69 63 25 29 0d |_click(w|i%,ic%).|
|000050f0| 1e 32 2a 20 20 20 c9 20 | 64 61 74 61 64 69 63 57 |.2*   . |datadicW|
|00005100| 25 3a f2 64 61 74 61 64 | 69 63 5f 63 6c 69 63 6b |%:.datad|ic_click|
|00005110| 28 77 69 25 2c 69 63 25 | 29 0d 1e 3c 29 20 20 20 |(wi%,ic%|)..<)   |
|00005120| c9 20 63 6f 6e 74 72 6f | 6c 57 25 3a f2 66 69 6e |. contro|lW%:.fin|
|00005130| 61 6c 69 73 65 5f 6d 61 | 6e 75 61 6c 28 52 45 43 |alise_ma|nual(REC|
|00005140| 25 29 0d 1e 46 2c 20 20 | 20 c9 20 72 65 73 74 72 |%)..F,  | . restr|
|00005150| 69 63 74 57 25 3a c8 99 | 20 22 57 69 6d 70 5f 43 |ictW%:..| "Wimp_C|
|00005160| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 2d 31 0d 1e |reateMen|u",,-1..|
|00005170| 50 06 20 cb 0d 1e 5a 2b | 20 62 6c 6f 63 6b 25 21 |P. ...Z+| block%!|
|00005180| 38 3d 30 3a 62 6c 6f 63 | 6b 25 21 31 32 3d 77 69 |8=0:bloc|k%!12=wi|
|00005190| 25 3a 62 6c 6f 63 6b 25 | 21 31 36 3d 69 63 25 0d |%:block%|!16=ic%.|
|000051a0| 1e 64 26 20 c8 99 20 22 | 49 6e 74 65 72 66 61 63 |.d& .. "|Interfac|
|000051b0| 65 5f 53 6c 61 62 42 75 | 74 74 6f 6e 22 2c 2c 62 |e_SlabBu|tton",,b|
|000051c0| 6c 6f 63 6b 25 0d 1e 6e | 06 20 e1 0d 1e 78 06 20 |lock%..n|. ...x. |
|000051d0| 3a 0d 1e 82 15 20 dd 20 | f2 69 63 6f 6e 62 61 72 |:.... . |.iconbar|
|000051e0| 5f 63 6c 69 63 6b 0d 1e | 8c 0c 20 c8 8e 20 62 25 |_click..|.. .. b%|
|000051f0| 20 ca 0d 1e 96 2b 20 20 | 20 c9 20 32 3a f2 73 68 | ....+  | . 2:.sh|
|00005200| 6f 77 5f 6d 65 6e 75 28 | 6d 65 6e 75 25 28 30 29 |ow_menu(|menu%(0)|
|00005210| 2c 78 25 2d 36 34 2c 79 | 62 61 72 25 29 0d 1e a0 |,x%-64,y|bar%)...|
|00005220| 40 20 20 20 c9 20 34 3a | e7 20 70 72 65 73 65 6e |@   . 4:|. presen|
|00005230| 74 25 3d 37 20 8c 20 f2 | 73 68 6f 77 5f 77 69 6e |t%=7 . .|show_win|
|00005240| 64 6f 77 73 20 8b 20 f2 | 6f 70 65 6e 5f 77 69 6e |dows . .|open_win|
|00005250| 64 6f 77 28 70 72 6f 6d | 70 74 57 25 29 0d 1e aa |dow(prom|ptW%)...|
|00005260| 27 20 20 20 e7 20 6c 69 | 73 74 65 64 25 20 8c 20 |'   . li|sted% . |
|00005270| f2 6f 70 65 6e 5f 77 69 | 6e 64 6f 77 28 6c 69 73 |.open_wi|ndow(lis|
|00005280| 74 57 25 29 0d 1e b4 06 | 20 cb 0d 1e be 06 20 e1 |tW%)....| ..... .|
|00005290| 0d 1e c8 06 20 3a 0d 1e | d2 1b 20 dd 20 f2 6d 61 |.... :..|.. . .ma|
|000052a0| 69 6e 5f 63 6c 69 63 6b | 28 77 69 25 2c 69 63 25 |in_click|(wi%,ic%|
|000052b0| 29 0d 1e dc 0c 20 ea 20 | 7a 25 2c 5a 25 0d 1e e6 |).... . |z%,Z%...|
|000052c0| 17 20 e7 20 4d 61 6b 69 | 6e 67 41 70 70 74 73 25 |. . Maki|ngAppts%|
|000052d0| 20 8c 20 e1 0d 1e f0 1d | 20 61 70 70 74 68 61 6e | . .....| appthan|
|000052e0| 64 6c 65 25 3d ad 28 61 | 70 70 74 66 69 6c 65 24 |dle%=.(a|pptfile$|
|000052f0| 29 0d 1e fa 18 20 f2 77 | 72 69 74 65 5f 61 70 70 |).... .w|rite_app|
|00005300| 28 5a 25 2c 52 45 43 25 | 29 0d 1f 04 1d 20 f2 63 |(Z%,REC%|).... .c|
|00005310| 6c 6f 73 65 5f 66 69 6c | 65 28 61 70 70 74 68 61 |lose_fil|e(apptha|
|00005320| 6e 64 6c 65 25 29 0d 1f | 0e 0f 20 e7 20 5a 25 3e |ndle%)..|.. . Z%>|
|00005330| 30 20 8c 20 e1 0d 1f 18 | 13 20 c8 8e 20 62 25 20 |0 . ....|. .. b% |
|00005340| 80 20 25 31 31 31 20 ca | 0d 1f 22 0b 20 20 20 c9 |. %111 .|..".   .|
|00005350| 20 32 3a 0d 1f 2c 1c 20 | 20 20 f2 63 6c 6f 73 65 | 2:..,. |  .close|
|00005360| 5f 77 69 6e 64 6f 77 28 | 73 74 61 74 57 25 29 0d |_window(|statW%).|
|00005370| 1f 36 27 20 20 20 f2 73 | 68 6f 77 5f 6d 65 6e 75 |.6'   .s|how_menu|
|00005380| 28 6d 65 6e 75 25 28 31 | 29 2c 78 25 2d 36 34 2c |(menu%(1|),x%-64,|
|00005390| 79 25 2b 31 36 29 0d 1f | 40 0d 20 20 20 c9 20 31 |y%+16)..|@.   . 1|
|000053a0| 2c 34 3a 0d 1f 4a 25 20 | 20 20 e7 20 28 62 25 20 |,4:..J% |  . (b% |
|000053b0| 80 20 25 31 31 31 29 3d | 34 20 8c 20 7a 25 3d 31 |. %111)=|4 . z%=1|
|000053c0| 20 8b 20 7a 25 3d 2d 31 | 0d 1f 54 0f 20 20 20 c8 | . z%=-1|..T.   .|
|000053d0| 8e 20 69 63 25 20 ca 0d | 1f 5e 27 20 20 20 20 20 |. ic% ..|.^'     |
|000053e0| c9 20 34 30 3a 61 64 64 | 72 3d a4 6d 6f 76 65 74 |. 40:add|r=.movet|
|000053f0| 6f 28 6b 65 79 25 2c 74 | 6f 70 2c 7a 25 29 0d 1f |o(key%,t|op,z%)..|
|00005400| 68 2b 20 20 20 20 20 c9 | 20 34 31 3a 61 64 64 72 |h+     .| 41:addr|
|00005410| 3d a4 66 61 73 74 5f 77 | 69 6e 64 28 74 6f 70 2c |=.fast_w|ind(top,|
|00005420| 61 64 64 72 2c 2d 7a 25 | 29 0d 1f 72 29 20 20 20 |addr,-z%|)..r)   |
|00005430| 20 20 c9 20 34 32 3a 61 | 64 64 72 3d a4 6d 6f 76 |  . 42:a|ddr=.mov|
|00005440| 65 74 6f 28 6b 65 79 25 | 2c 61 64 64 72 2c 2d 7a |eto(key%|,addr,-z|
|00005450| 25 29 0d 1f 7c 28 20 20 | 20 20 20 c9 20 34 33 3a |%)..|(  |   . 43:|
|00005460| 61 64 64 72 3d a4 6d 6f | 76 65 74 6f 28 6b 65 79 |addr=.mo|veto(key|
|00005470| 25 2c 61 64 64 72 2c 7a | 25 29 0d 1f 86 2a 20 20 |%,addr,z|%)...*  |
|00005480| 20 20 20 c9 20 34 34 3a | 61 64 64 72 3d a4 66 61 |   . 44:|addr=.fa|
|00005490| 73 74 5f 77 69 6e 64 28 | 74 6f 70 2c 61 64 64 72 |st_wind(|top,addr|
|000054a0| 2c 7a 25 29 0d 1f 90 28 | 20 20 20 20 20 c9 20 34 |,z%)...(|     . 4|
|000054b0| 35 3a 61 64 64 72 3d a4 | 6d 6f 76 65 74 6f 28 6b |5:addr=.|moveto(k|
|000054c0| 65 79 25 2c 74 6f 70 2c | 2d 7a 25 29 0d 1f 9a 0e |ey%,top,|-z%)....|
|000054d0| 20 20 20 20 20 c9 20 34 | 37 3a 0d 1f a4 1b 20 20 |     . 4|7:....  |
|000054e0| 20 20 20 e7 20 24 4b 65 | 79 73 74 72 69 6e 67 25 |   . $Ke|ystring%|
|000054f0| 3d 22 22 20 8c 0d 1f ae | 20 20 20 20 20 20 20 20 |="" ....|        |
|00005500| f2 73 65 74 5f 63 61 72 | 65 74 28 6d 61 69 6e 57 |.set_car|et(mainW|
|00005510| 25 2c 34 36 29 0d 1f b8 | 29 20 20 20 20 20 20 20 |%,46)...|)       |
|00005520| cc 20 61 64 64 72 3d a4 | 66 69 6e 64 28 24 4b 65 |. addr=.|find($Ke|
|00005530| 79 73 74 72 69 6e 67 25 | 2c 6b 65 79 25 29 0d 1f |ystring%|,key%)..|
|00005540| c2 0a 20 20 20 20 20 cd | 0d 1f cc 1c 20 20 20 20 |..     .|....    |
|00005550| 20 c9 20 34 38 3a f2 73 | 68 6f 77 5f 74 61 62 6c | . 48:.s|how_tabl|
|00005560| 65 28 30 29 0d 1f d6 14 | 20 20 20 20 20 c9 20 34 |e(0)....|     . 4|
|00005570| 39 2c 35 30 2c 35 34 3a | 0d 1f e0 22 20 20 20 20 |9,50,54:|..."    |
|00005580| 20 c8 8e 20 a4 73 65 6c | 65 63 74 65 64 5f 65 73 | .. .sel|ected_es|
|00005590| 67 28 77 69 25 2c 31 29 | 20 ca 0d 1f ea 16 20 20 |g(wi%,1)| .....  |
|000055a0| 20 20 20 20 20 c9 20 34 | 39 3a 6b 65 79 25 3d 30 |     . 4|9:key%=0|
|000055b0| 0d 1f f4 16 20 20 20 20 | 20 20 20 c9 20 35 34 3a |....    |   . 54:|
|000055c0| 6b 65 79 25 3d 31 0d 1f | fe 16 20 20 20 20 20 20 |key%=1..|..      |
|000055d0| 20 c9 20 35 30 3a 6b 65 | 79 25 3d 32 0d 20 08 0a | . 50:ke|y%=2. ..|
|000055e0| 20 20 20 20 20 cb 0d 20 | 12 21 20 20 20 20 20 61 |     .. |.!     a|
|000055f0| 64 64 72 3d a4 6d 6f 76 | 65 74 6f 28 6b 65 79 25 |ddr=.mov|eto(key%|
|00005600| 2c 74 6f 70 2c 31 29 0d | 20 1c 0e 20 20 20 20 20 |,top,1).| ..     |
|00005610| c9 20 35 31 3a 0d 20 26 | 20 20 20 20 20 20 e7 20 |. 51:. &|      . |
|00005620| ac 20 a4 73 65 6c 65 63 | 74 65 64 28 77 69 25 2c |. .selec|ted(wi%,|
|00005630| 35 31 29 20 8c 0d 20 30 | 22 20 20 20 20 20 20 20 |51) .. 0|"       |
|00005640| f2 63 6c 6f 73 65 5f 77 | 69 6e 64 6f 77 28 6d 61 |.close_w|indow(ma|
|00005650| 6e 75 61 6c 57 25 29 0d | 20 3a 23 20 20 20 20 20 |nualW%).| :#     |
|00005660| 20 20 f2 63 6c 6f 73 65 | 5f 77 69 6e 64 6f 77 28 |  .close|_window(|
|00005670| 68 65 61 64 69 6e 67 57 | 25 29 0d 20 44 23 20 20 |headingW|%). D#  |
|00005680| 20 20 20 20 20 f2 63 6c | 6f 73 65 5f 77 69 6e 64 |     .cl|ose_wind|
|00005690| 6f 77 28 63 6f 6e 74 72 | 6f 6c 57 25 29 0d 20 4e |ow(contr|olW%). N|
|000056a0| 0a 20 20 20 20 20 cd 0d | 20 58 19 20 20 20 20 20 |.     ..| X.     |
|000056b0| c9 20 35 33 3a f2 75 6e | 64 6f 28 52 45 43 25 29 |. 53:.un|do(REC%)|
|000056c0| 0d 20 62 08 20 20 20 cb | 0d 20 6c 06 20 cb 0d 20 |. b.   .|. l. .. |
|000056d0| 76 28 20 e7 20 a4 73 65 | 6c 65 63 74 65 64 28 77 |v( . .se|lected(w|
|000056e0| 69 25 2c 35 31 29 20 8c | 20 f2 6d 61 6e 75 61 6c |i%,51) .| .manual|
|000056f0| 28 52 45 43 25 29 0d 20 | 80 06 20 e1 0d 20 8a 05 |(REC%). |.. .. ..|
|00005700| 3a 0d 20 94 1a dd 20 a4 | 66 61 73 74 5f 77 69 6e |:. ... .|fast_win|
|00005710| 64 28 54 25 2c 50 25 2c | 44 25 29 0d 20 9e 08 ea |d(T%,P%,|D%). ...|
|00005720| 20 49 25 0d 20 a8 0c 66 | 61 73 74 25 3d 31 30 0d | I%. ..f|ast%=10.|
|00005730| 20 b2 11 44 25 3d 28 44 | 25 2b 31 29 20 81 20 32 | ..D%=(D|%+1) . 2|
|00005740| 0d 20 bc 18 c8 95 20 50 | 25 3c 3e 54 25 20 80 20 |. .... P|%<>T% . |
|00005750| 49 25 3c 66 61 73 74 25 | 0d 20 c6 1f 20 20 50 25 |I%<fast%|. ..  P%|
|00005760| 3d a4 6e 65 69 67 68 62 | 6f 75 72 28 6b 65 79 25 |=.neighb|our(key%|
|00005770| 2c 50 25 2c 44 25 29 0d | 20 d0 0b 20 20 49 25 2b |,P%,D%).| ..  I%+|
|00005780| 3d 31 0d 20 da 05 ce 0d | 20 e4 2d e7 20 50 25 3d |=1. ....| .-. P%=|
|00005790| 54 25 20 8c 20 ef 20 37 | 3a 50 25 3d a4 6e 65 69 |T% . . 7|:P%=.nei|
|000057a0| 67 68 62 6f 75 72 28 6b | 65 79 25 2c 50 25 2c 31 |ghbour(k|ey%,P%,1|
|000057b0| 2d 44 25 29 0d 20 ee 15 | f2 64 69 73 70 6c 61 79 |-D%). ..|.display|
|000057c0| 28 6b 65 79 25 2c 50 25 | 29 0d 20 f8 07 3d 50 25 |(key%,P%|). ..=P%|
|000057d0| 0d 21 02 06 20 3a 0d 21 | 0c 1c 20 dd 20 f2 70 72 |.!.. :.!|.. . .pr|
|000057e0| 69 6e 74 5f 63 6c 69 63 | 6b 28 77 69 25 2c 69 63 |int_clic|k(wi%,ic|
|000057f0| 25 29 0d 21 16 1d 20 ea | 20 6b 65 79 25 2c 73 74 |%).!.. .| key%,st|
|00005800| 61 72 74 25 2c 65 6e 64 | 25 2c 66 24 2c 66 25 0d |art%,end|%,f$,f%.|
|00005810| 21 20 0d 20 c8 8e 20 69 | 63 25 20 ca 0d 21 2a 33 |! . .. i|c% ..!*3|
|00005820| 20 20 20 c9 20 30 2c 31 | 2c 32 3a f2 69 63 6f 6e |   . 0,1|,2:.icon|
|00005830| 5f 62 69 74 28 32 32 2c | 77 69 25 2c 33 2c a4 73 |_bit(22,|wi%,3,.s|
|00005840| 65 6c 65 63 74 65 64 28 | 77 69 25 2c 31 29 29 0d |elected(|wi%,1)).|
|00005850| 21 34 19 20 20 20 c9 20 | 34 3a f2 73 68 6f 77 5f |!4.   . |4:.show_|
|00005860| 74 61 62 6c 65 28 32 29 | 0d 21 3e 0b 20 20 20 c9 |table(2)|.!>.   .|
|00005870| 20 37 3a 0d 21 48 20 20 | 20 20 c8 8e 20 a4 73 65 | 7:.!H  |  .. .se|
|00005880| 6c 65 63 74 65 64 5f 65 | 73 67 28 77 69 25 2c 32 |lected_e|sg(wi%,2|
|00005890| 29 20 ca 0d 21 52 1a 20 | 20 20 20 20 c9 20 35 3a |) ..!R. |    . 5:|
|000058a0| 66 24 3d 22 70 72 69 6e | 74 65 72 3a 22 0d 21 5c |f$="prin|ter:".!\|
|000058b0| 32 20 20 20 20 20 c9 20 | 36 3a 66 24 3d 24 64 61 |2     . |6:f$=$da|
|000058c0| 74 61 62 61 73 65 25 2b | 22 2e 50 72 69 6e 74 4a |tabase%+|".PrintJ|
|000058d0| 6f 62 73 2e 41 70 70 74 | 5f 22 3a 66 25 3d b9 0d |obs.Appt|_":f%=..|
|000058e0| 21 66 08 20 20 20 cb 0d | 21 70 20 20 20 20 c8 8e |!f.   ..|!p    ..|
|000058f0| 20 a4 73 65 6c 65 63 74 | 65 64 5f 65 73 67 28 77 | .select|ed_esg(w|
|00005900| 69 25 2c 31 29 20 ca 0d | 21 7a 0d 20 20 20 20 20 |i%,1) ..|!z.     |
|00005910| c9 20 30 3a 0d 21 84 2d | 20 20 20 20 20 6b 6c 25 |. 0:.!.-|     kl%|
|00005920| 3d 35 3a 6b 65 79 25 3d | 30 3a 76 61 6c 24 3d 22 |=5:key%=|0:val$="|
|00005930| 22 3a 4b 45 59 24 3d a4 | 6b 65 79 28 6b 65 79 25 |":KEY$=.|key(key%|
|00005940| 29 0d 21 8e 24 20 20 20 | 20 20 73 74 61 72 74 25 |).!.$   |  start%|
|00005950| 3d a4 73 65 61 72 63 68 | 28 4b 45 59 24 2c 6b 65 |=.search|(KEY$,ke|
|00005960| 79 25 2c 31 29 0d 21 98 | 27 20 20 20 20 20 65 6e |y%,1).!.|'     en|
|00005970| 64 25 3d a4 6e 65 69 67 | 68 62 6f 75 72 28 6b 65 |d%=.neig|hbour(ke|
|00005980| 79 25 2c 73 74 61 72 74 | 25 2c 31 29 0d 21 a2 18 |y%,start|%,1).!..|
|00005990| 20 20 20 20 20 e7 20 66 | 25 20 8c 20 66 24 2b 3d |     . f|% . f$+=|
|000059a0| 4b 45 59 24 0d 21 ac 0d | 20 20 20 20 20 c9 20 31 |KEY$.!..|     . 1|
|000059b0| 3a 0d 21 b6 1f 20 20 20 | 20 20 54 75 74 24 3d 24 |:.!..   |  Tut$=$|
|000059c0| a4 74 65 78 74 28 70 72 | 69 6e 74 57 25 2c 33 29 |.text(pr|intW%,3)|
|000059d0| 0d 21 c0 15 20 20 20 20 | 20 e7 20 54 75 74 24 3c |.!..    | . Tut$<|
|000059e0| 3e 22 22 20 8c 0d 21 ca | 1a 20 20 20 20 20 20 20 |>"" ..!.|.       |
|000059f0| e7 20 66 25 20 8c 20 66 | 24 2b 3d 54 75 74 24 0d |. f% . f|$+=Tut$.|
|00005a00| 21 d4 1f 20 20 20 20 20 | 20 20 6b 6c 25 3d 33 3a |!..     |  kl%=3:|
|00005a10| 6b 65 79 25 3d 31 3a 76 | 61 6c 24 3d 22 22 0d 21 |key%=1:v|al$="".!|
|00005a20| de 30 20 20 20 20 20 20 | 20 73 74 61 72 74 25 3d |.0      | start%=|
|00005a30| a4 73 65 61 72 63 68 28 | 54 75 74 24 2c 6b 65 79 |.search(|Tut$,key|
|00005a40| 25 2c 31 29 3a 50 25 3d | 73 74 61 72 74 25 0d 21 |%,1):P%=|start%.!|
|00005a50| e8 14 20 20 20 20 20 20 | 20 e7 20 50 25 3e 3d 30 |..      | . P%>=0|
|00005a60| 20 8c 0d 21 f2 0e 20 20 | 20 20 20 20 20 20 20 f5 | ..!..  |       .|
|00005a70| 0d 21 fc 27 20 20 20 20 | 20 20 20 20 20 20 20 50 |.!.'    |       P|
|00005a80| 25 3d a4 6e 65 69 67 68 | 62 6f 75 72 28 6b 65 79 |%=.neigh|bour(key|
|00005a90| 25 2c 50 25 2c 31 29 0d | 22 06 2e 20 20 20 20 20 |%,P%,1).|"..     |
|00005aa0| 20 20 20 20 20 20 69 6e | 66 6f 24 3d 24 28 21 6b |      in|fo$=$(!k|
|00005ab0| 65 79 61 6e 63 68 6f 72 | 25 28 6b 65 79 25 29 2b |eyanchor|%(key%)+|
|00005ac0| 50 25 2b 38 29 0d 22 10 | 1a 20 20 20 20 20 20 20 |P%+8).".|.       |
|00005ad0| 20 20 fd 20 69 6e 66 6f | 24 3c 3e 54 75 74 24 0d |  . info|$<>Tut$.|
|00005ae0| 22 1a 14 20 20 20 20 20 | 20 20 20 20 65 6e 64 25 |"..     |    end%|
|00005af0| 3d 50 25 0d 22 24 41 20 | 20 20 20 20 20 20 20 20 |=P%."$A |        |
|00005b00| cc 20 85 20 6d 6f 61 6e | 5f 65 72 72 25 2c 54 75 |. . moan|_err%,Tu|
|00005b10| 74 24 2b 22 20 69 73 20 | 6e 6f 74 20 61 20 76 61 |t$+" is |not a va|
|00005b20| 6c 69 64 20 74 75 74 6f | 72 20 63 6f 64 65 22 2b |lid tuto|r code"+|
|00005b30| bd 28 30 29 0d 22 2e 0c | 20 20 20 20 20 20 20 cd |.(0)."..|       .|
|00005b40| 0d 22 38 1b 20 20 20 20 | 20 20 20 cc 20 f2 73 68 |."8.    |   . .sh|
|00005b50| 6f 77 5f 74 61 62 6c 65 | 28 32 29 0d 22 42 0a 20 |ow_table|(2)."B. |
|00005b60| 20 20 20 20 cd 0d 22 4c | 0d 20 20 20 20 20 c9 20 |    .."L|.     . |
|00005b70| 32 3a 0d 22 56 19 20 20 | 20 20 20 e7 20 66 25 20 |2:."V.  |   . f% |
|00005b80| 8c 20 66 24 2b 3d 22 41 | 4c 4c 22 0d 22 60 1d 20 |. f$+="A|LL"."`. |
|00005b90| 20 20 20 20 6b 6c 25 3d | 33 3a 6b 65 79 25 3d 31 |    kl%=|3:key%=1|
|00005ba0| 3a 76 61 6c 24 3d 22 22 | 0d 22 6a 2f 20 20 20 20 |:val$=""|."j/    |
|00005bb0| 20 73 74 61 72 74 25 3d | a4 6e 65 69 67 68 62 6f | start%=|.neighbo|
|00005bc0| 75 72 28 6b 65 79 25 2c | 74 6f 70 2c 31 29 3a 65 |ur(key%,|top,1):e|
|00005bd0| 6e 64 25 3d 74 6f 70 0d | 22 74 08 20 20 20 cb 0d |nd%=top.|"t.   ..|
|00005be0| 22 7e 28 20 20 20 f2 70 | 72 69 6e 74 5f 73 6c 69 |"~(   .p|rint_sli|
|00005bf0| 70 73 28 66 24 2c 73 74 | 61 72 74 25 2c 65 6e 64 |ps(f$,st|art%,end|
|00005c00| 25 2c 6b 65 79 25 29 0d | 22 88 25 20 20 20 e7 20 |%,key%).|".%   . |
|00005c10| 66 25 20 8c 20 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |f% . .. |"OS_File|
|00005c20| 22 2c 31 38 2c 66 24 2c | 26 66 66 34 0d 22 92 1f |",18,f$,|&ff4."..|
|00005c30| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |   .. "W|imp_Crea|
|00005c40| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 22 9c 06 20 |teMenu",|,-1.".. |
|00005c50| cb 0d 22 a6 06 20 e1 0d | 22 b0 06 20 3a 0d 22 ba |..".. ..|".. :.".|
|00005c60| 12 20 dd 20 f2 6c 69 73 | 74 5f 63 6c 69 63 6b 0d |. . .lis|t_click.|
|00005c70| 22 c4 2d 20 e7 20 62 25 | 3d 32 20 8c 20 f2 73 68 |".- . b%|=2 . .sh|
|00005c80| 6f 77 5f 6d 65 6e 75 28 | 73 61 76 65 57 25 2c 78 |ow_menu(|saveW%,x|
|00005c90| 25 2d 31 32 38 2c 79 25 | 2d 34 38 29 0d 22 ce 10 |%-128,y%|-48)."..|
|00005ca0| 20 6c 69 73 74 74 79 70 | 65 25 3d 31 0d 22 d8 06 | listtyp|e%=1."..|
|00005cb0| 20 e1 0d 22 e2 06 20 3a | 0d 22 ec 1b 20 dd 20 f2 | ..".. :|.".. . .|
|00005cc0| 73 61 76 65 5f 63 6c 69 | 63 6b 28 77 69 25 2c 69 |save_cli|ck(wi%,i|
|00005cd0| 63 25 29 0d 22 f6 09 20 | ea 20 48 24 0d 23 00 34 |c%).".. |. H$.#.4|
|00005ce0| 20 53 74 61 72 74 25 3d | 21 74 65 78 74 61 6e 63 | Start%=|!textanc|
|00005cf0| 68 6f 72 25 3a 45 6e 64 | 25 3d 53 74 61 72 74 25 |hor%:End|%=Start%|
|00005d00| 2b 43 6f 75 6e 74 25 2a | 4c 65 6e 4c 69 6e 65 25 |+Count%*|LenLine%|
|00005d10| 0d 23 0a 24 20 46 69 6c | 65 6e 61 6d 65 24 3d 24 |.#.$ Fil|ename$=$|
|00005d20| 53 61 76 65 4c 69 73 74 | 25 3a 54 79 70 65 25 3d |SaveList|%:Type%=|
|00005d30| 26 46 46 46 0d 23 14 0d | 20 c8 8e 20 69 63 25 20 |&FFF.#..| .. ic% |
|00005d40| ca 0d 23 1e 37 20 20 20 | c9 20 31 3a e7 20 28 62 |..#.7   |. 1:. (b|
|00005d50| 25 20 80 20 25 31 31 31 | 31 30 30 30 30 29 3e 30 |% . %111|10000)>0|
|00005d60| 20 8c 20 f2 69 6e 69 74 | 5f 64 72 61 67 28 77 69 | . .init|_drag(wi|
|00005d70| 25 2c 69 63 25 2c 35 29 | 0d 23 28 0b 20 20 20 c9 |%,ic%,5)|.#(.   .|
|00005d80| 20 32 3a 0d 23 32 1c 20 | 20 20 e7 20 a7 46 69 6c | 2:.#2. |  . .Fil|
|00005d90| 65 6e 61 6d 65 24 2c 22 | 2e 22 29 3e 30 20 8c 0d |ename$,"|.")>0 ..|
|00005da0| 23 3c 2b 20 20 20 20 20 | f2 73 61 76 65 28 46 69 |#<+     |.save(Fi|
|00005db0| 6c 65 6e 61 6d 65 24 2c | 54 79 70 65 25 2c 53 74 |lename$,|Type%,St|
|00005dc0| 61 72 74 25 2c 45 6e 64 | 25 29 0d 23 46 21 20 20 |art%,End|%).#F!  |
|00005dd0| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |   .. "W|imp_Crea|
|00005de0| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 23 50 68 20 |teMenu",|,-1.#Ph |
|00005df0| 20 20 20 20 cc 20 f2 77 | 69 6d 70 5f 65 72 72 6f |    . .w|imp_erro|
|00005e00| 72 28 b9 2c 6d 6f 61 6e | 5f 65 72 72 25 2c 30 2c |r(.,moan|_err%,0,|
|00005e10| 22 4e 6f 20 70 61 74 68 | 6e 61 6d 65 2e 20 44 72 |"No path|name. Dr|
|00005e20| 61 67 20 74 68 65 20 66 | 69 6c 65 20 69 63 6f 6e |ag the f|ile icon|
|00005e30| 20 74 6f 20 61 20 64 69 | 72 65 63 74 6f 72 79 20 | to a di|rectory |
|00005e40| 76 69 65 77 65 72 20 74 | 6f 20 73 61 76 65 20 69 |viewer t|o save i|
|00005e50| 74 22 29 0d 23 5a 08 20 | 20 20 cd 0d 23 64 06 20 |t").#Z. |  ..#d. |
|00005e60| cb 0d 23 6e 06 20 e1 0d | 23 78 06 20 3a 0d 23 82 |..#n. ..|#x. :.#.|
|00005e70| 1e 20 dd 20 f2 64 61 74 | 61 64 69 63 5f 63 6c 69 |. . .dat|adic_cli|
|00005e80| 63 6b 28 77 69 25 2c 69 | 63 25 29 0d 23 8c 13 20 |ck(wi%,i|c%).#.. |
|00005e90| c8 8e 20 62 25 20 80 20 | 25 31 31 31 20 ca 0d 23 |.. b% . |%111 ..#|
|00005ea0| 96 0b 20 20 20 c9 20 34 | 3a 0d 23 a0 39 20 20 20 |..   . 4|:.#.9   |
|00005eb0| 21 62 6c 6f 63 6b 25 3d | 64 61 74 61 64 69 63 57 |!block%=|datadicW|
|00005ec0| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |%:.. "Wi|mp_GetWi|
|00005ed0| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |ndowStat|e",,bloc|
|00005ee0| 6b 25 0d 23 aa 5a 20 20 | 20 e7 20 41 63 63 65 73 |k%.#.Z  | . Acces|
|00005ef0| 73 25 20 8c 20 c8 99 20 | 22 57 69 6d 70 5f 53 65 |s% . .. |"Wimp_Se|
|00005f00| 74 43 61 72 65 74 50 6f | 73 69 74 69 6f 6e 22 2c |tCaretPo|sition",|
|00005f10| 64 61 74 61 64 69 63 57 | 25 2c 69 63 25 2c 78 25 |datadicW|%,ic%,x%|
|00005f20| 2d 62 6c 6f 63 6b 25 21 | 34 2b 62 6c 6f 63 6b 25 |-block%!|4+block%|
|00005f30| 21 32 30 2c 79 25 2c 2d | 31 2c 2d 31 0d 23 b4 2b |!20,y%,-|1,-1.#.+|
|00005f40| 20 20 20 c9 20 32 3a f2 | 73 68 6f 77 5f 6d 65 6e |   . 2:.|show_men|
|00005f50| 75 28 6d 65 6e 75 25 28 | 32 29 2c 78 25 2d 36 34 |u(menu%(|2),x%-64|
|00005f60| 2c 79 25 2d 32 30 29 0d | 23 be 06 20 cb 0d 23 c8 |,y%-20).|#.. ..#.|
|00005f70| 06 20 e1 0d 23 d2 06 20 | 3a 0d 23 dc 20 20 dd 20 |. ..#.. |:.#.  . |
|00005f80| f2 73 61 76 65 28 66 24 | 2c 66 74 25 2c 73 74 61 |.save(f$|,ft%,sta|
|00005f90| 72 74 25 2c 65 6e 64 25 | 29 0d 23 e6 28 20 c8 99 |rt%,end%|).#.( ..|
|00005fa0| 20 22 4f 53 5f 46 69 6c | 65 22 2c 31 30 2c 66 24 | "OS_Fil|e",10,f$|
|00005fb0| 2c 66 74 25 2c 2c 73 74 | 61 72 74 25 2c 65 6e 64 |,ft%,,st|art%,end|
|00005fc0| 25 0d 23 f0 0c 20 77 61 | 72 6e 25 3d b9 0d 23 fa |%.#.. wa|rn%=..#.|
|00005fd0| 06 20 e1 0d 24 04 06 20 | 3a 0d 24 0e 49 20 f4 20 |. ..$.. |:.$.I . |
|00005fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ff0| 2d 2d 20 45 6e 64 20 6f | 66 20 4d 6f 75 73 65 2d |-- End o|f Mouse-|
|00006000| 63 6c 69 63 6b 20 70 72 | 6f 63 65 73 73 69 6e 67 |click pr|ocessing|
|00006010| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00006020| 2d 2d 0d 24 18 06 20 3a | 0d 24 22 06 20 3a 0d 24 |--.$.. :|.$". :.$|
|00006030| 2c 06 20 3a 0d 24 36 4b | 20 f4 20 2d 2d 2d 2d 2d |,. :.$6K| . -----|
|00006040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006050| 2d 20 4b 65 79 2d 70 72 | 65 73 73 20 70 72 6f 63 |- Key-pr|ess proc|
|00006060| 65 73 73 69 6e 67 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |essing -|--------|
|00006070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00006080| 24 40 06 20 3a 0d 24 4a | 13 20 dd 20 f2 70 72 6f |$@. :.$J|. . .pro|
|00006090| 63 65 73 73 5f 6b 65 79 | 0d 24 54 0c 20 ea 20 54 |cess_key|.$T. . T|
|000060a0| 25 2c 4e 24 0d 24 5e 27 | 20 c8 99 20 22 57 69 6d |%,N$.$^'| .. "Wim|
|000060b0| 70 5f 47 65 74 43 61 72 | 65 74 50 6f 73 69 74 69 |p_GetCar|etPositi|
|000060c0| 6f 6e 22 2c 2c 62 6c 6f | 63 6b 25 0d 24 68 35 20 |on",,blo|ck%.$h5 |
|000060d0| 77 69 25 3d 62 6c 6f 63 | 6b 25 21 30 3a 69 63 25 |wi%=bloc|k%!0:ic%|
|000060e0| 3d 62 6c 6f 63 6b 25 21 | 34 3a 6b 65 79 5f 70 72 |=block%!|4:key_pr|
|000060f0| 65 73 73 65 64 25 3d 62 | 6c 6f 63 6b 25 21 32 34 |essed%=b|lock%!24|
|00006100| 0d 24 72 0d 20 c8 8e 20 | 77 69 25 20 ca 0d 24 7c |.$r. .. |wi% ..$||
|00006110| 1b 20 20 20 c9 20 6d 61 | 69 6e 57 25 3a f2 6d 61 |.   . ma|inW%:.ma|
|00006120| 69 6e 5f 70 72 65 73 73 | 0d 24 86 34 20 20 20 c9 |in_press|.$.4   .|
|00006130| 20 70 72 69 6e 74 57 25 | 3a e7 20 a4 73 65 6c 65 | printW%|:. .sele|
|00006140| 63 74 65 64 28 77 69 25 | 2c 31 29 20 8c 20 f2 64 |cted(wi%|,1) . .d|
|00006150| 62 6f 78 5f 70 72 65 73 | 73 28 37 29 0d 24 90 20 |box_pres|s(7).$. |
|00006160| 20 20 20 c9 20 61 63 63 | 65 73 73 57 25 3a f2 64 |   . acc|essW%:.d|
|00006170| 62 6f 78 5f 70 72 65 73 | 73 28 33 29 0d 24 9a 1e |box_pres|s(3).$..|
|00006180| 20 20 20 c9 20 73 61 76 | 65 57 25 3a f2 64 62 6f |   . sav|eW%:.dbo|
|00006190| 78 5f 70 72 65 73 73 28 | 32 29 0d 24 a4 21 20 20 |x_press(|2).$.!  |
|000061a0| 20 c9 20 64 61 74 61 64 | 69 63 57 25 3a f2 64 61 | . datad|icW%:.da|
|000061b0| 74 61 64 69 63 5f 70 72 | 65 73 73 0d 24 ae 23 20 |tadic_pr|ess.$.# |
|000061c0| 20 20 c9 20 72 65 73 74 | 72 69 63 74 57 25 3a f2 |  . rest|rictW%:.|
|000061d0| 64 62 6f 78 5f 70 72 65 | 73 73 28 32 31 29 0d 24 |dbox_pre|ss(21).$|
|000061e0| b8 06 20 cb 0d 24 c2 06 | 20 e1 0d 24 cc 06 20 3a |.. ..$..| ..$.. :|
|000061f0| 0d 24 d6 11 dd 20 f2 6d | 61 69 6e 5f 70 72 65 73 |.$... .m|ain_pres|
|00006200| 73 0d 24 e0 15 c8 8e 20 | 6b 65 79 5f 70 72 65 73 |s.$.... |key_pres|
|00006210| 73 65 64 25 20 ca 0d 24 | ea 23 20 20 c9 20 33 38 |sed% ..$|.#  . 38|
|00006220| 37 3a f2 6d 6f 75 73 65 | 28 30 2c 30 2c 34 2c 6d |7:.mouse|(0,0,4,m|
|00006230| 61 69 6e 57 25 2c 34 30 | 29 0d 24 f4 23 20 20 c9 |ainW%,40|).$.#  .|
|00006240| 20 34 30 37 3a f2 6d 6f | 75 73 65 28 30 2c 30 2c | 407:.mo|use(0,0,|
|00006250| 34 2c 6d 61 69 6e 57 25 | 2c 34 31 29 0d 24 fe 23 |4,mainW%|,41).$.#|
|00006260| 20 20 c9 20 34 30 32 3a | f2 6d 6f 75 73 65 28 30 |  . 402:|.mouse(0|
|00006270| 2c 30 2c 34 2c 6d 61 69 | 6e 57 25 2c 34 32 29 0d |,0,4,mai|nW%,42).|
|00006280| 25 08 23 20 20 c9 20 33 | 38 36 3a f2 6d 6f 75 73 |%.#  . 3|86:.mous|
|00006290| 65 28 30 2c 30 2c 34 2c | 6d 61 69 6e 57 25 2c 34 |e(0,0,4,|mainW%,4|
|000062a0| 33 29 0d 25 12 23 20 20 | c9 20 33 39 31 3a f2 6d |3).%.#  |. 391:.m|
|000062b0| 6f 75 73 65 28 30 2c 30 | 2c 34 2c 6d 61 69 6e 57 |ouse(0,0|,4,mainW|
|000062c0| 25 2c 34 34 29 0d 25 1c | 23 20 20 c9 20 34 30 33 |%,44).%.|#  . 403|
|000062d0| 3a f2 6d 6f 75 73 65 28 | 30 2c 30 2c 34 2c 6d 61 |:.mouse(|0,0,4,ma|
|000062e0| 69 6e 57 25 2c 34 35 29 | 0d 25 26 23 20 20 c9 20 |inW%,45)|.%&#  . |
|000062f0| 33 38 35 3a f2 6d 6f 75 | 73 65 28 30 2c 30 2c 34 |385:.mou|se(0,0,4|
|00006300| 2c 6d 61 69 6e 57 25 2c | 34 37 29 0d 25 30 1f 20 |,mainW%,|47).%0. |
|00006310| 20 c9 20 33 39 38 2c 33 | 39 39 3a f2 64 62 6f 78 | . 398,3|99:.dbox|
|00006320| 5f 70 72 65 73 73 28 34 | 37 29 0d 25 3a 23 20 20 |_press(4|7).%:#  |
|00006330| c9 20 33 39 32 3a f2 6d | 6f 75 73 65 28 30 2c 30 |. 392:.m|ouse(0,0|
|00006340| 2c 34 2c 6d 61 69 6e 57 | 25 2c 34 38 29 0d 25 44 |,4,mainW|%,48).%D|
|00006350| 3c 20 20 c9 20 31 33 3a | e7 20 69 63 25 3d 34 36 |<  . 13:|. ic%=46|
|00006360| 20 8c 20 f2 6d 6f 75 73 | 65 28 30 2c 30 2c 34 2c | . .mous|e(0,0,4,|
|00006370| 77 69 25 2c 34 37 29 20 | 8b 20 f2 64 62 6f 78 5f |wi%,47) |. .dbox_|
|00006380| 70 72 65 73 73 28 34 37 | 29 0d 25 4e 29 20 20 7f |press(47|).%N)  .|
|00006390| 3a c8 99 20 22 57 69 6d | 70 5f 50 72 6f 63 65 73 |:.. "Wim|p_Proces|
|000063a0| 73 4b 65 79 22 2c 6b 65 | 79 5f 70 72 65 73 73 65 |sKey",ke|y_presse|
|000063b0| 64 25 0d 25 58 05 cb 0d | 25 62 15 c8 99 20 22 4f |d%.%X...|%b... "O|
|000063c0| 53 5f 42 79 74 65 22 2c | 31 35 2c 30 0d 25 6c 05 |S_Byte",|15,0.%l.|
|000063d0| e1 0d 25 76 06 20 3a 0d | 25 80 16 dd 20 f2 64 62 |..%v. :.|%... .db|
|000063e0| 6f 78 5f 70 72 65 73 73 | 28 6f 6b 25 29 0d 25 8a |ox_press|(ok%).%.|
|000063f0| 15 c8 8e 20 6b 65 79 5f | 70 72 65 73 73 65 64 25 |... key_|pressed%|
+--------+-------------------------+-------------------------+--------+--------+